Bonsoir
Dans l'USF 4, tu supprimes tous les codes et tu les remplaces par celui ci-après
Private Sub UserForm_Initialize()
Dim i As Integer
With Sheets("Adherents")
For i = 1 To .Range("A" & .Rows.Count).End(xlUp).Row
ComboBox1.AddItem .Range("A" & i)
Next
End With
End Sub
Reste à savoir où tu veux supprimer nom lorsque tu fais ton choix dans la liste. Dans la feuille ADHERENT ou la feuille LIVRES ?
Si la feuille Livres, il peut apparaitre plusieurs fois non ?
Crdlt