Salut Man, le Forum
Voici un petit code qui fera la même chose mais en beaucoup plus simple. Ton code sent l'enregistreur de macro lol !!!
Bien sur il est à adapter à tes besoin, notement au niveau des cellules et avec des explications
Dim Fin As Integer
Range("a6").Select ' selectionne la cellule a6 comme cellule de depart
Fin = Range("a1").End(xlDown).Row 'Definie jusqu'ou les cellules sont remplis dans le colonnes A
Range("b1").Copy ' Cellule à copier
Range("b1:b" & Fin).Select 'selection de la range de cellule où copier
Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False 'copie la formule
A+
Creepy