Sub Formule()
'Touches Ctrl+F pour lancer la macro
'=SOMME(A1:A1000)+SOMME(B1:B1000)+SOMME(C1:C1000)+SOMME(A1:A1000)+SOMME(B1:B1000)+SOMME(C1:C1000)+SOMME(A1:A1000)+SOMME(B1:B1000)+SOMME(C1:C1000)+SOMME(A1:A1000)+SOMME(B1:B1000)+SOMME(C1:C1000)+SOMME(A1:A1000)+SOMME(B1:B1000)+SOMME(C1:C1000)+SOMME(A1:A1000)+SOMME(B1:B1000)+SOMME(C1:C1000)+SOMME(A1:A1000)+SOMME(B1:B1000)+SOMME(C1:C1000)
Dim cel As Range, i&, f$
Set cel = [D1] 'cellule cible
With ThisWorkbook.VBProject.VBComponents("Module1").CodeModule 'mettre le nom du module
For i = 1 To .CountOfLines
f = .Lines(i, 1) 'texte de la ligne de code
If Left(f, 2) = "'=" Then 'si commentaire adéquat
cel.FormulaLocal = Mid(f, 2)
Exit For
End If
Next
End With
End Sub