Bonjour,

Je souhaite pouvoir intégrer une formule en dur dans le code plutôt que dans les cellules de ma colonne.
J'ai lu ici et là quelques discussions à ce sujet mais j'ai une erreur d'exécution 1004.

Voici mon code

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
 
Private Sub Workbook_Activate()
With ThisWorkbook.Worksheets("Feuil1")
 .Range("G:G").Formula = "=SI(E2=0;"""";DATE(ANNEE(E2);MOIS(E2)+1;1))"
 End With
End Sub
Quelle est mon erreur?

Merci