Sub coloration(cellule)
Dim idx As Variant
If cellule.Count > 1 Then GoTo Fin:
idx = Application.Match(cellule.Value, Params.Range("Code"), 0)
If Not IsError(idx) Then
cellule.Interior.ColorIndex = Params.Range("Code").Cells(idx, 2).Interior.ColorIndex
Else
cellule.Interior.ColorIndex = Params.Range("NonTrouvé")(1, 2).Interior.ColorIndex
End If
Fin:
End Sub