Code pour liste déroulante

Bonjour,

Je veux mettre ce code dans la colonne F a partir de F1 (ouvre la liste en F7 d'un simple pointage de la souris)

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$A$1" And Target.Count = 1 Then
SendKeys "%{down}"
If Target = "" Then
Target = Range("Liste")(1)
End If
End If
End Sub


Merci de me donner les étape pas à pas.

Grand merci à vous.