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