Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'Controle affectations
If flag Then Exit Sub
flag = True
If Target.Column = 3 Or Target.Column = 8 Or Target.Column = 13 Or Target.Column = 18 Then
If Target.Value <> "" And Target.Font.Color <> 8421504 Then
For Each Cell In Sheets("mds").Range("C7:C300")
If Target.Value = Cell.Value Then
Cell.Copy
Target.PasteSpecial Paste:=xlPasteAllExceptBorders
End If
Next Cell
End If
End If
flag = False
Range("c8").Select ' Sélectionner la cellule supérieure pour réaliser le code supérieure
Range("c9").Select ' Revenir sur la cellule inférieure et arrêter la procédure
End Sub