Salut Fat,
Salut les as,
comme je comprends l'affaire :
- en cliquant dans [C5], le nom du client "préféré", obligatoirement renseigné en haut de la liste de données (ici, en [A1] ), s'affiche directement ;
- la liste de validation se crée dans la foulée pour permettre un autre choix.
Á ce que je saisis de ton fonctionnement, il est même sans doute inutile d'intégrer ce client "préféré" dans la liste, d'ailleurs... Non ?
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'
If Not Intersect(Target, Range("C5")) Is Nothing Then
Target = [A1]
With Target.Validation
.Delete
.Add Type:=xlValidateList, Formula1:="=A1:A" & Range("A" & Rows.Count).End(xlUp).Row
End With
End If
'
End Sub
A+