Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A2:A500")) Is Nothing And Target.Count = 1 Then 'plage à adapter...
If Target <> "" Then
If Target <> "X" Then
Target.Select
Target = ""
MsgBox "Mon patron a toujours raison !" & " Mon patron a toujours raison !" & _
" Mon patron a toujours raison !" & " Mon patron a toujours raison !" & _
" Mon patron a toujours raison !" & " Mon patron a toujours raison !" & _
" Mon patron a toujours raison !" & " Mon patron a toujours raison !" & _
" Mon patron a toujours raison !" & " Mon patron a toujours raison !" & _
" Mon patron a toujours raison !" & " Mon patron a toujours raison !" & _
" Mon patron a toujours raison !" & " Mon patron a toujours raison !" & _
" Mon patron a toujours raison !" & " Mon patron a toujours raison !" & _
" Mon patron a toujours raison !" & " Mon patron a toujours raison !" & _
" Mon patron a toujours raison !" & " Mon patron a toujours raison !" & _
" Mon patron a toujours raison !" & " Mon patron a toujours raison !" & _
" Mon patron a toujours raison !" & " Mon patron a toujours raison !", 48
End If
End If
End If
End Sub