au niveau déclaration :
Dim DerLign as Range
________________________________________________________
Private Sub UserForm_Initialize()
Dim i as Long
With WorkSheets('Clients')
Set DerLing=.Range('A65536').End(xlUp).Rows
For i=0 To DerLign - 2
Me.ListBox1.AddItem
Me.ListBox1.Column(0, i) = .Range('A' & DerLign + 2)
Me.ListBox1.Column(1, i) = .Range('E' & DerLign + 2)
Me.ListBox1.Column(2, i) = .Range('F' & DerLign + 2)
Me.ListBox1.Column(3, i) = .Range('G' & DerLign + 2)
Me.ListBox1.Column(4, i) = .Range('H' & DerLign + 2)
Me.ListBox1.Column(5, i) = .Range('K' & DerLign + 2)
Next i
End With
End Sub