Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Msg As String, Ans
' Si l'utilisateur ne se trouve pas dans la cellule C7, on sort
If Intersect(Target, Range("C7")) Is Nothing Then Exit Sub
' Sinon afficher le message
Msg = "Es-tu sur de ne rien avoir oublié, " & Application.UserName & " ?"
Ans = MsgBox(Msg, vbYesNo, "QUESTION ...")
' Selon la réponse
If Ans = vbNo Then MsgBox "Oups, autant pour moi"
If Ans = vbYes Then MsgBox "Alors! merci qui ?"
End Sub