Sub Recopie_Formules_SansAutofill()
Dim DernLigne As Long
With Worksheets("Rapport 1")
DernLigne = .Range("A" & .Rows.Count).End(xlUp).Row
.Range("M2:Z" & DernLigne).Formula = "=ADDRESS(ROW(),COLUMN(),4)"
'remplacer la formule de test par la vraie formule
End With
End Sub