Incorporer une formulle si dans une macro

Bonjour ou bonsoir, je recherche une formule SI et le mettre dans un macro la formule est ( SI dans l'onglet 'Nouvel facture'!E1 = 'Remarque facture'!B4 alors si c'est vrai il faut ajouté la valeur +1 dans la cellule 'Remarque facture'!B11 si c'est faux diminué de valeur -1 dans la cellule 'Remarque facture'!B11) merci

Bonjour

Une version sans formule

Sub SansFormule()
  With Sheets("Remarque facture")
    .Range("B11") = .Range("B11") + IIf(Sheets("Nouvel facture").Range("E1") = .Range("B4"), 1, -1)
  End With
End Sub

Pour la formule il faut accepter les références circulaires

Options ---> Formules ---> Cocher activer le calcul itératif et mettre 1 dans Nb maximal d'itérations ---> Ok

Sub AvecFormule()
  Range("B11").Formula = "=IF('Nouvel facture'!E1=B4,B11+1,B11-1)"
End Sub

A toi de choisir