Bonjour
Allez dans le module 1 et supprimez l'instruction --> "Open formulaire" et remplacez la par le code OUVRIR ci-dessous
Cordialement
Edit : Sinon supprimez votre Rowsource (cela apporte parfois des soucis) et mettez ce code dans votre userform. La combobox ne reprendra que les items se trouvant sur la feuille
Private Sub UserForm_Initialize()
With Sheets("Feuil1")
For i = 2 To .Range("B" & Rows.Count).End(xlUp).Row
ComboBox1.AddItem .Range("B" & i).Value
Next i
End With
End Sub
Dans votre module, liez ceci à votre bouton
Sub ouvrir()
Userform1.show
End sub