Bonsoir
Bien sur que c'est possible
Le plus simple c'est d'utiliser la formule dans la macro
Exemple
Option Explicit
Sub MacroFormule()
Dim Nblg As Long
Nblg = Sheets("Feuil1").Range("A" & Rows.Count).End(xlUp).Row
With Sheets("Feuil2")
' Formule de Tulipe
With .Range("D2:D" & Nblg)
.Formula = "=IF(SUMPRODUCT((Feuil1!C2=""il"")*(Feuil1!E2=Feuil1!E$7)+(Feuil1!C2=""il"")*(Feuil1!E2=Feuil1!E$8)+(Feuil1!C2="""")*(Feuil1!E2=Feuil1!E$7)*(Feuil1!C2<>""il"")*(Feuil1!E2=Feuil1!E$7)+(Feuil1!C2<>""il"")*(Feuil1!E2=Feuil1!E$8)),""ok"","""")"
.Value = .Value
End With
' Formule de Banzai64
With .Range("G2:G" & Nblg)
.Formula = "=IF(OR(Feuil1!C2=""Gagné"",AND(Feuil1!C2=""Gagné Concurrence"",OR(Feuil1!A2=""IL"",ISBLANK(Feuil1!A2)))),""Ok"","""")"
.Value = .Value
End With
End With
End Sub