Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Count > 1 Then
If UCase(Cells(Target.Row, 8)) = "X" Then
MsgBox "Effacement interdit !", vbCritical
[A1].Activate
End If
End If
End Sub