Private Sub UserForm_Initialize()
With Sheets("Data")
DLig = .Range("D" & Rows.Count).End(xlUp).Row
Me.ComboBoxParNom.List = .Range("D11:G" & DLig & "").Value '///modif
End With
Me.ComboBoxParNom.ColumnCount = 4 '///modif
Me.ComboBoxParNom.ColumnWidths = "50;0;0;50" '///modif
End Sub