Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo FinChange
' ex MFC : $A$167:$AT$170;$A$55:$E$166;$H$55:$AT$166;$F$55:$G$134;$A$4:$AT$54
Set Plage = Application.Union(Range("$A$167:$AT$170"), Range("$A$55:$E$166"), Range("$H$55:$AT$166"), Range("$F$55:$G$134"), Range("$A$4:$AT$54"))
If Not Intersect(Target, Plage) Is Nothing Then
Colore (Target.Address)
End If
FinChange:
End Sub