Sub AlimGesClient()
Set d = CreateObject("Scripting.Dictionary")
a = Sheets("Feuil1").Range("A2:C" & Sheets("Feuil1").[A65000].End(xlUp).Row).Value
For i = LBound(a) To UBound(a)
If a(i, 1) <> "" Then d(i) = Array(a(i, 1), a(i, 2), a(i, 3))
Next i
n = d.Count
If n > 0 Then
Dim Tbl: Tbl = Application.Transpose(d.items)
ReDim Preserve Tbl(1 To 3, 1 To n + 1)
Me.ListClient.List = Application.Transpose(Tbl)
Me.ListClient.RemoveItem n
End If
End Sub