[excel] Adaptation code rapide

Bonjour,
J'ai trouvé sur le net un code qu'il me faudrait mais j'ai un peu de mal à l'adapter.
J'aimerai que ce code envoi les données de la listbox multicolonne "ExtraitVente" vers La feuille "Feuil1" à partir de la cellule A13.

Private Sub CommandButton11_Click()

Dim k As Long, i As Long, x As Byte
i = 1
For k = 0 To ExtraitVente.ListCount - 1
      With Sheets("Feuil1")
         For x = 0 To 7
            .Cells(i, x + 1) = ExtraitVente.List(k, x)
         Next
           i = i + 1
      End With
Next
End Sub

Merci d'avance :)