Private Sub UserForm_Initialize()
'si la dernière ligne est supérieure à 256 déclarer i et x en Integer
Dim i As Byte, x As Byte
i = Sheets("Base client").Range("B65536").End(xlUp).Row
For x = 3 To i
With ComboBoxParNom
.AddItem Sheets("Base client").Range("B" & x)
End With
Next x
End Sub