La liste déroulante n'affiche pas tous les noms

bonjour à toutes et à tous

J'ai une liste déroulante contenant les noms des clients,

Le problème : Ma liste déroulante n'affiche pas tous les noms.

(Voir code vba)

Voici un exemple de mon fichier

Merci et salutations

« Sincères salutations. »

zinelamri

Bonsoir

essaie ceci

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Clients As Object
Dim Cel As Range
MsgBox Target.Address
'If Target.Count > 1 Then Exit Sub
If Target.Address = "$A$2:$G$4" Then
    Set Clients = CreateObject("Scripting.Dictionary")
    For Each Cel In Range("B14:B" & Cells(Rows.Count, "B").End(xlUp).Row)
        If Cel <> "" And Cel.Offset(, 3).Value = "Non Payé" Then
            Clients(Cel.Value) = Cel.Value
        End If
    Next Cel
    With Target.Validation
        .Delete
        .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
        xlBetween, Formula1:=Join(Clients.Keys, ",")
    End With
End If
End Sub

Re

Merci pour cette réponse rapide et qui ça fonctionne très bien, sauf il y a un message qui me dérange chaque clic

Voir le fichier joint

Encore merci

Cordialement

bonsoir,

tu enlèves l'instruction msgbox

Re-bonsoir

Merci h2so4 encore une fois pour votre aide

Bien cordialement à tous!!!

zinelamri