Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Borders.LineStyle <> xlNone Then
If r = "" Then
If Target.value = "" Then
MsgBox ("Cette case est vide inutile de la copier")
Else
If Not Application.Intersect(Target, Range("A:Z")) Is Nothing Then
Target.Interior.ColorIndex = 3
r = Target.value: d = Target.Address
End If
End If
Else
If Not Application.Intersect(Target, Range("A:Z")) Is Nothing Then
If Target.value <> "" Then
MsgBox ("Merci de choisir une autre case de destination, celle ci n'est pas vide")
Else
Target.value = r
'Cells.Interior.ColorIndex = 0 ' ici
r = ""
Application.CutCopyMode = False
Range(d).Clear 'et là
End If
End If
End If
Else
MsgBox ("Merci de sélectionner une case valide pour la copie")
End If
End Sub