Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim PL As Range 'déclare la variable PL (PLage)
If Target.Cells.Count > 1 Then Exit Sub 'si plusieurs cellules sélectionnées, sort de la procédure
'définit la plage PL
Set PL = Application.Union(Range("B9"), Range("B10")) 'ici tu ajoutes toutes les cellules concernées
If Not Application.Intersect(Target, PL) Is Nothing Then 'condition : si la cellule sélectionnée fait partie de la plage PL
SendKeys "%{down}"
End If
End Sub