Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address(0, 0) = "[SIZE=4][COLOR=red]A1[/COLOR][/SIZE]" Then
If Not IsEmpty(Target) Then
MsgBox "Impossible de sélectionner cette cellule"
Target.Offset(, 1).Select
End If
End If
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column= [SIZE=4][COLOR=red]1[/COLOR][/SIZE] Then
If Not IsEmpty(Target) Then
MsgBox "Impossible de sélectionner Les cellulles non vides de cette colonne"
Target.Offset(, 1).Select
End If
End If
End Sub