Déboggage pour bloquer des cellules

Bonjour je voudrais bloquer de l'édition certaine colonne et même certaines cellules par exemple j'avais un code comme celui-ci qui fonctionnait très bien :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Not Application.Intersect(Target, Range("A1:A3000,B1:B3000,C1:C3000")) Is Nothing Then
        If Target.HasFormula Then Range("A11").Select
    End If
End Sub

Avec le HasFormula c'est très bien mais le problème c'est que les cellules que je veux cloquer ne sont pas des formules mes questions pour un sondage qui ne doit pas être modifié par quelqu'un d'autre que moi...

Aussi comment faire pour bloquer certaines cellules en particulier, comme D23, E23, G34 par exemple.

Merci

JL

P.S.: Je ne veux pas utiliser l'option protect sheet...

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Not Application.Intersect(Target, Range("D23") Is Nothing Then
       Range("A11").Select
    End If
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Not Application.Intersect(Target, Range("D23") Is Nothing Then
       Range("A11").Select
    End If
End Sub

Merci ENgueEngue mais j'ai un compile error : Syntax Error...

Voici l'image :S

Merci!

il manque une parenthèse

thnx