Modif sur macro liste de validation

Bonjour à tout le forum,

Je souhaiterais votre aide pour modifier cette macro (de J.Boisgontier) afin d'affecter les liste de validation uniquement sur la ligne 9 ; soit de G9 à BO9

Par avance merci,
Bien amicalement,
Christian

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column > 6 And Target.Count = 1 Then
If Target <> "" Then
If IsError(Application.Match(Target.Value, [Liste], 0)) Then
If MsgBox("On ajoute?", vbYesNo) = vbYes Then
[Liste].End(xlDown).Offset(1, 0) = Target.Value
Sheets("Liste").[Liste].Sort key1:=Sheets("Liste").Range("A2")
Else
Application.Undo
End If
End If
End If
End If
End Sub