ComboBox1.ColumnCount = 1 'Pour la liste déroulante Civilité
ComboBox1.List() = Array("", "M.", "Mme")
Set Ws = Sheets("AM Bayonne") 'Correspond au nom de votre onglet dans le fichier Excel
Me.ComboBox1
For J = 2 To Ws.Range("A" & Rows.Count).End(xlUp).Row
.AddItem Ws.Range("A" & J)
Next J
End With