Fonction Si + RechercheV

RE

Il faut définir pour chaque cellule

Tu peux aussi utiliser le select case ainsi

For Each cellule In [t_Synthese].ListObject.ListColumns(1).DataBodyRange
    If cellule.Offset(0, 4) <> "" And cellule.Offset(0, 8) <> "" Then
        Select Case True
            Case cellule.Offset(0, 8) >= -20 And cellule.Offset(0, 8) <= 20 And cellule.Offset(0, 17) = 0 And cellule.Offset(0, 16) = 0
                cellule.Offset(0, 18) = "10-Ecart < 20 euros - OD à passer"
            Case cellule.Offset(0, 8) >= -20 And cellule.Offset(0, 17) = "" And cellule.Offset(0, 16) >= -20 And cellule.Offset(0, 16) <= 20
                 cellule.Offset(0, 18) = "10-Ecart < 20 euros - OD à passer"
        End Select
    End If
Next
End Sub

En adaptant ou imbriquer des select case