Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column <> 6 Then Exit Sub
If MsgBox("Voulez-vous un coup de rouge ?", vbInformation + vbYesNo, "Hep,") = vbYes Then
Target.Interior.ColorIndex = [A3].Interior.ColorIndex
End If
End Sub