Recopie formule vers le bas

Bonsoir à tous,

question classique à laquelle un néophite malgré ses recherches n'arrive pas à trouver la solution :

Remplir la colonne B d'une formule Mois(....) en fonction de la présence d'une donnée sur la même ligne en colonne A

Mon bout de code que je n'arrive pas à faire fonctionner

Sub recopieformulebas()

Dim cel As Range

For Each cel In Range("A1:A" & [j200000].End(xlUp).Row)

If Left(cel, 1) <> "" Then cel.Offset(0, 1) = "=MONTH(RC[-1])"

Next cel

End Sub

Merci beaucoup d'avance pour vos aides !

Hello collègue phocéens,

Teste ce code.

Sub test()
Dim cel As Range
For Each cel In Range("A1:A" & Range("A" & Rows.Count).End(xlUp).Row)
If Left(cel, 1) <> "" Then cel.Offset(0, 1) = "=MONTH(RC[-1])"
Next cel
End Sub

C'est beaucoup mieux

Merciiiii

bonne soirée !