XL 2021 Formule Excel dans VBA

[dl87671]

Bonjour,
Dans le fichier joint, en colonne A des activités sportives.
En colonne D, j'ai collé une formule Excel pour simplifier le nom des activités : =SI.CONDITIONS(GAUCHE(A2;5)="Aquag";"Aquagym";GAUCHE(A2;5)="Aquab";"Aquabike";GAUCHE(A2;3)="Gym";"Gym";GAUCHE(A2;4)="Pila";"Pilates";GAUCHE(A2;4)="Yoga";"Yoga";GAUCHE(A2;3)="Bow";"Bowling";GAUCHE(A2;8)="Marche A";"Marche Aquatique";VRAI;A2)
Je voudrais mettre cette formule dans une macro VBA comme ci-dessous :

Sub CalculerValeurs()
Dim ws As Worksheet
Set ws = ThisWorkbook.Sheets(1) ' modifier si nécessaire pour sélectionner la bonne feuille
Dim derniereLigne As Long
derniereLigne = ws.Cells(ws.Rows.Count, 1).End(xlUp).Row

Dim i As Long
For i = 2 To derniereLigne
ws.Cells(i, 2).Formula = "=SI.CONDITIONS(GAUCHE(A" & i & ";5)=""Aquag"";""Aquagym"";GAUCHE(A" & i & ";5)=""Aquab"";""Aquabike"";GAUCHE(A" & i & ";3)=""Gym"";""Gym"";GAUCHE(A" & i & ";4)=""Pila"";""Pilates"";GAUCHE(A" & i & ";4)=""Yoga"";""Yoga"";GAUCHE(A" & i & ";3)=""Bow"";""Bowling"";GAUCHE(A" & i & ";8)=""Marche A"";""Marche Aquatique"";VRAI;A" & i & ")"
Next i
End Sub

Mais cela me renvoie une erreur "1004" erreur définie par l'application ou par l'objet.
Je cherche mais je ne trouve pas l'erreur.
Quelqu'un a une idée ? Merci d'avance

 

[TooFatBoy]

Bonjour,

Formula travaille avec des formules en english, me semble-t-il, donc aussi avec des virgules à la place des point-virgules.
Du coup, as-tu essayé avec FormulaLocal ?

 

[dl87671]

Bonjour,

As-tu essayé avec FormulaLocal ?

Non je vais essayer

 

[dl87671]

Non je vais essayer

Bonjour,

Formula travaille avec des formules en english, me semble-t-il, donc aussi avec des virgules à la place des point-virgules.
Du coup, as-tu essayé avec FormulaLocal ?

super çà fonctionne MERCI !!! et bonnes fêtes de Noël