re,
J'ai juste mis en forme la cellule B18; voyant avec retard que tu demande en vba voici le code obtenu à partir de l'enregistreur de macros :
Sub MisEnFormCondi()
Selection.FormatConditions.Delete
Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
'=SI(A18=''AZ'';OU(B18=11;B18=12;B18=13;B18=15))'
Selection.FormatConditions(1).Interior.ColorIndex = 45
Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
'=SI(A18=''AZ'';OU(B18=31;B18=32;B18=33;B18=34;B18=38))'
With Selection.FormatConditions(2).Font
.Bold = True
.Italic = False
.ColorIndex = 2
End With
Selection.FormatConditions(2).Interior.ColorIndex = 3
Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlNotEqual, _
Formula1:='=''AZ'''
With Selection.FormatConditions(3).Font
.Bold = True
.Italic = False
.ColorIndex = 1
End With
Selection.FormatConditions(3).Interior.ColorIndex = 3
End Sub