Excel: générer du VBA avec...du VBA !

Après avoir développé une formule complexe dans la feuille de calcul, quoi de plus fastidieux que de devoir ensuite la "traduire" en Vba ? Plus maintenant, grace a cette petite routine, à exécuter depuis la fenêtre de Debug (ctrl+G):

 
Sub RngToVba(src As Range)  
 'writes the VBA code to re-create the formulae in given range  
 'by Patrick Honorez - www.idevlop.com  
 'usage: from debug window, type RngToVba [L14:R14]  
 ' or RngToVba range("L14:R14")  
  Dim c As Range  
  For Each c In src  
  Debug.Print "range(""" & c.Address & """).formula = """ & _  
        Replace(c.Formula, """", """""") & """"""  
  Next c  
 End Sub