Explication

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
' la macro se déclenche dès qu'il y a un changement de la feuille

' si la cellule de la ligne 4 et colonne 4 = 2 alors
If Cells(4, 4) = 2 Then
' la cellule de la ligne 6 colonne 8 = 0
Cells(6, 8) = 0
End If

' si la cellule de la ligne 7 colonne 4 = 2 alors
If Cells(7, 4) = 2 Then
Les cellules des lignes 7 et colonne 6 et 8 sont égales à rien ("")

Cells(7, 6) = ""
Cells(7, 8) = ""
End If

' ca je ne sais pas
If Not Intersect(Range("f4,f6,h4,h5,j2:n34,c23:f26,c28:f32,c27,f27,b34"), Target) Is Nothing Then
Target.Offset(0, 1).Select
End If
End Sub

melanie1324, tu es drôlement gentille...
Je pense que le code que tu ne connais pas correspond à l'intersection de deux ensemble de plages => Si la plage cible fait partie d'une plage intouchable, on dégage la sélection en-dehors