Sub recopie()
ndeb = 3 'ligne ou debute la copie
deb1 = 10
form = Range("A1").Formula ' adapter pour la cellule contenant la 1ere formule
'adapter pour la colonne (remplacer A par lettre de colonne)
For n = 1 To 5 ' a adapter pour le nombre de copies
Range("A" & ndeb).Formula = Replace(form, "10", CStr(deb1 + 4))
Range("A" & ndeb).Formula = Replace(Range("A" & ndeb).Formula, "11", CStr(deb1 + 5))
Range("A" & ndeb + 1).Formula = Replace(form, "10", CStr(deb1 + 6))
Range("A" & ndeb + 1).Formula = Replace(Range("A" & ndeb + 1).Formula, "11", CStr(deb1 + 7))
ndeb = ndeb + 2
deb1 = deb1 + 4
Next n
End Sub