Formulaire - chargement d'une liste suite à un choix

Bonjour à tous,

Pourriez-vous m'expliquer comment faire pour que, lorsque je choisis un nom dans une liste, apparaissent uniquement les prénoms correspondants?

Dans mon fichier, c'est le Userform "Compta".

Si vous voyez d'autres endroits dans mes codes où il y aurait moyen d'optimaliser, je suis également preneur parce que je dois bien avouer que je suis un vrai novice et j'essaye de faire pour un mieux...

Un tout grand merci d'avance

Private Sub nom_Change()
prenom.List.Clear
For i = 2 To 1000
If nom.Value = Worksheets("Donnees").Range("G" & i) Then
prenom.AddItem Worksheets("Donnees").Range("H" & i)
End If
Next i
End Sub

Pour les pistes d'amélioration... je ne saurai par où commencer. Tout est sous optimal.

Bon courage.

Merci pour la réponse rapide mais ça ne fonctionne pas ! et tant qu'on y est, pour éviter les doublons dans les noms et prénoms ??

N'étant pas du tout du milieu, ça ne m'étonne guère de ne pas être optimal pour un sou...

Maintenant, comment apprendre pour faire mieux?

Merci merci