Bonjour
et oui
et voir aussi tes combobox
A+
Maurice
Dim Sh As Object
Private Sub Userform_Initialize() 'Liste des demandeurs
Set Sh = Feuil1 ' = Sheets("DATA")
Set Sh1 = Sheets("Demandeur")
Set Sh2 = Sheets("Statut")
Set Sh3 = Sheets("Type_litige")
ComboBox_Demandeur.List = Sh1.Range("A1:A" & Sh1.Range("A" & Rows.Count).End(xlUp).Row).Value
ComboBox_Statut.List = Sh2.Range("A1:A" & Sh2.Range("A" & Rows.Count).End(xlUp).Row).Value
ComboBox_Litige.List = Sh3.Range("A1:A" & Sh3.Range("A" & Rows.Count).End(xlUp).Row).Value
TextBox_ID.Value = Application.Max(Sh.Columns(1)) + 1
End Sub