VBA : formule si vide remplie

Bonjour

Encore une fois je me tourne vers la communauté :

Ma maccro copie des valeurs sur plusieurs colonnes de plusieurs feuilles les une à la suite des autres.

Je voudrais qu'à la suite des ces valeurs apparaisse une formule or il y a une erreur de syntaxe :

Sub Taux()
'
'
'
  Dim DLig As Long
  Dim i As Integer

  ' Récupérer la dernière ligne du tableau
  DLig = Range("A" & Rows.Count).End(xlUp).Row

  Range("A2:A" & DLig & ",B2:B" & DLig & ",D2:D" & DLig & ",M2:M" & DLig).Copy
  'Ouvre le fichier ou l'on colle les données

  With Sheets("Taux d'occupation").Range("A3").End(xlUp)(2)
  .PasteSpecial Paste:=xlValues, Transpose:=False
  End With

  Sheets("Archives").Activate

  DLig = Range("A" & Rows.Count).End(xlUp).Row

  Range("A68:A" & DLig & ",B68:B" & DLig & ",D68:D" & DLig & ",M68:M" & DLig & ",BE68:BE" & DLig).Copy
  'Ouvre le fichier ou l'on colle les données

  With Sheets("Taux d'occupation").Range("A69").End(xlUp)(2)
  .PasteSpecial Paste:=xlValues, Transpose:=False
  End With

  For i = 3 To 150

    If Cells(A, i) <> 33 Then

  ' ERREUR ICI 
 Cells(E, i).Formula = "=SI(MOIS(Tableau8[[#En-têtes];[janv-2020]])<MOIS(AUJOURDHUI());MAX(0;MIN(FIN.MOIS(Tableau8[[#En-têtes];[janv-2020]];0);[@[Date de départ]])-MAX(FIN.MOIS(Tableau8[[#En-têtes];[janv-2020]];-1);[@[Date d''arrivée]]-1));"En_attente")"
    Cells(F, i).Formula = "=SI(MOIS(Tableau8[[#En-têtes];[févr-2020]])<MOIS(AUJOURDHUI());MAX(0;MIN(FIN.MOIS(Tableau8[[#En-têtes];[févr-2020]];0);[@[Date de départ]])-MAX(FIN.MOIS(Tableau8[[#En-têtes];[févr-2020]];-1);[@[Date d''arrivée]]-1));"En_attente")"

    End If

  Next i

End Sub

Pourtant, la formule fonctionne si elle est inscrite dans une cellule directement.

Pouvez vous m'aider ?

Salut Theyoshi,

comme tu écris ta formule avec des mots-clés en français, mets plutôt

Cells(E, i).FormulaLocal =

A+

Merci de ton aide Curulis57.

Toujours la même erreur