Insérer formule dynamique avec VBA ne fonctionne pas...

Bonjour,

merci de me lire,

j'ai le code suivant et il ne fonctionne pas, je n'arrive pas à comprendre pourquoi...

Private Sub Worksheet_Activate()
Dim DernLigne As Long
DernLigne = Range("i62").End(xlUp).Row
formule = "=NB.JOURS.OUVRES(I3;I" & DernLigne & ";Exemple!A135:A148)"
Range("J103").Formula = formule
End sub

Simplement la dernière ligne ne fonctionne pas, le reste c'est nickel. J'ai essayé formular1c1 et toujours "erreur définie par l'application ou par l'objet"

Quelqu'un aurait des pistes de solution?