Microsoft 365 VBA Incompatibilité de type 13 dans une boucle

[chris6999]

Bonjour

Je rencontre un pb d'incompatibilité de type 13 dans une boucle que je ne comprends pas.
Je souhaite passer le code sur la ligne 1 de la colonne F jusqu'à la dernière colonne de mon tableau déclarée dercol

Quelqu'un voit-il où se situe le pb ? Je mets un fichier test en ¨PJ

Merci d'avance pour vos réponses

Bonne journée à tous

'dernière cellule non vide sur la colonne B
dercol = Cells(4, Columns.Count).End(xlToLeft).Column

For Each c In Range(Cells(1, "F"), Cells(1, "dercol"))
c.Offset(0, 0).FormulaR1C1 = "=IF(R[3]C<>"""",DATEVALUE(R[3]C&""/""&XLOOKUP(R3C6,mois!C1,mois!C2,"""",0,1)&""/""&YEAR(TODAY())),DATEVALUE(R[3]C[-1]&""/""&XLOOKUP(R3C6,mois!C1,mois!C2,"""",0,1)&""/""&YEAR(TODAY())))"
Next

 

[sylvanu]

Bonjour Chris,
Dercol étant une variable, il ne faut pas mettre de guillemets :

For Each c In Range(Cells(1, "F"), Cells(1, dercol))

 

[chris6999]

Bonjour et merci
Cela fait un moment que je regarde et je n'avais pas vu le ""
Il faut que je change mes lunettes.

Merci encore

 

[sylvanu]

For Each c In Range(Cells(1, "F"), Cells(1, "dercol"))

Alors changer de lunettes.