copier bouton de macro avec son code

Bonjour à vous tous

Est il possible de copier et coller un bouton de macro avec son code dans plusieurs classeurs xl fermés.

De plus, je souhaiterai copier 2 cellules qui contient une formule et qui se trouve en f3 et f4 et la coller toutes les 55 lignes dans la colonne f et cela jusqu'à 3000, j'ai essayé ce code sans succés

Merci pour vos réponses

Sub copiermois()

Dim i As Long

For i = 3 To 34868 Step 55

Range("f3:f4").Copy Destination:=Range("f58").End(xlDown).Offset(i, 0)


Next i

End Sub