Private Sub UserForm_Initialize() 'à l'initialisation de l'UserForm
Dim d As Object 'déclare la variable d (onglet Datas)
Dim dl As Integer 'déclare la variable dl (Dernière Ligne)
Dim pl As Range 'déclare la variable pl (PLage)
Dim dn As Integer 'déclare la variable dn (Dernier Numéro)
Set d = Sheets("Datas") 'définit l'onglet d
dl = d.Cells(Application.Rows.Count, 1).End(xlUp).Row 'définit la dernière ligne éditée de la colonne 1 (=A)
Set pl = d.Range("A2:A" & dl) 'définit la plage pl (colonne A)
Me.ComboBox1.List = pl.Value 'alimente dynamiquement la ComboBox1
dl = d.Cells(Application.Rows.Count, 3).End(xlUp).Row 'définit la dernière ligne éditée de la colonne 3 (=C)
Set pl = d.Range("C2:C" & dl) 'définit la plage pl (colonne C)
Me.ComboBox2.List = pl.Value 'alimente dynamiquement la ComboBox2
dn = Application.WorksheetFunction.Max(b.Columns(1)) 'définit le dernier numéro utilisé (le plus grand)
Me.TextBox15.Value = dn + 1 'incrémente le dernier numéro et place la valeur dans la TextBox15
Me.TextBox14.Value = Format(Date, "dd/mm/yyyy") 'place la date dans la TextBox14
End Sub