bonjour wyllou , le forum essaie cela Private Sub UserForm_Initialize()
Dim dercell As String
dercell = Range('a1').End(xlDown).Address
ComboBox1.RowSource = 'a1:' & dercell
End Sub
Private Sub ComboBox1_Change()
Dim Name As String
Name = ComboBox1.List(ComboBox1.ListIndex)
On Error Resume Next
Workbooks.Open Filename:=Name
End Sub
ps la liste des fichiers nom de a1&a12 salutations