ListBox vers feuil Excel

Bonjour à tous.

Je souhaiterai dans mon userform01, lorsque je clique sur imprimer que les données de la listbox soient copiées dans la feuil "imppret".

Voici mon code que j'ai réussi à faire:

'Imprimer la fiche, le 12/02/2017 par Guillaume

NB = ListBox1.ListCount - 1

Set C = Sheets("imppret").Range("B20:B20")

With Sheets("imppret")

.Range("B20:D20").Resize(NB, 1).EntireRow.Insert Shift:=xlDown

I = 0

C.Offset(I - NB, 0).Value = ListBox1.List(I, 0)

C.Offset(I - NB, 1).Value = ListBox1.List(I, 1)

C.Offset(I - NB, 2).Value = ListBox1.List(I, 2)

I = I + 1

Il me permet d'insérer le nombre de ligne suivant les données de la listbox, mais après plus rien.

Quelqu'un pourrait-il me venir en aide...

Cordialement,

Guillaume

Bonsoir,

ci-dessous code

    nb_lig = ListBox1.ListCount - 1
    nb_col = ListBox1.ColumnCount
    With Sheets("imppret")
        .Range("B20").Resize(nb_lig, nb_col).Value = ListBox1.List
    End With

Bonjour thev,

Merci pour le code ça fonctionne super bien