Dim Intérieur As Integer, Couleur As Long, Référence As Integer, i As Integer
If Target.Count > 1 Then Exit Sub
If Not Application.Intersect(Target, Range("C6:C27,H6:H41,M6:M37,R6:R39")) Is Nothing Then
Référence = Target
With Sheets("PARC")
For i = 7 To .Range("C65000").End(xlUp).Row
If .Cells(i, 3) = Référence Then
GoTo Etiquette
End If
Next
Etiquette:
Intérieur = .Cells(i, 3).Interior.Pattern
Couleur = .Cells(i, 3).Interior.Color
End With
Target.Interior.Pattern = Intérieur
Target.Interior.Color = Couleur
End If