Private Sub UserForm_Initialize()
Dim O As Worksheet 'déclare la variable O (Onglet)
Dim Max As Long 'déclare la variable Max
Set O = Worksheets("BIR_2019") 'définit l'onglet O
Max = Application.WorksheetFunction.Max(O.Columns(2)) 'définit la variable Max (plus grande valeur de la colonne D)
Me.TxtBDD.Value = Max + 1 'renvoie dans la Textbox "TxtBDD" la valeur max incrémentée
End Sub