Sub IncrementeCopie()
Dim W1 As Worksheet, W2 As Worksheet, a As String, F As String
Set W1 = Feuil6 'CodeName
Set W2 = Feuil7 'CodeName
a = W1.[D65536].End(xlUp)(0).Address
F = "=""AB""&TEXT(MID('" & W1.Name & "'!" & a & ",3,5)+1,""00000"")"
W2.[D24].End(xlUp)(2).Formula = F 'car il y a du texte en D24
End Sub