beug sur listview

Bonjour le forum

Je veux créer un listview et transférer le contenu de celle ci dans une feuille

J'ai récupéré un code sur le forum, mais il efface les données qui étaient déja dans cette feuille de report, alors que je voudrais les conserver et recopier les nouvelles à la suite .
j'essaye depuis pas mal d'heure de modifier cette macro, mais ça beug a chaque fois alors je me remet a vos compétences

Merci d'avance


Le Code /

Private Sub CommandButton9_Click()
Dim i As Integer
Dim j As Byte

With Sheets("Impression")
.Select
.Range("A14:m60" & .Range("A51").End(xlUp).Row + 1).ClearContents
End With

With ListView1
For i = 1 To .ListItems.Count
With .ListItems(i)
If IsNumeric(.Text) Then
Sheets(2).Cells(i + 13, 1) = numerique(.Text)
Else
Sheets(2).Cells(i + 13, 1) = numerique(.Text)
End If
End With
For j = 1 To .columnHeaders.Count - 1
With .ListItems(i).listSubItems(j)
If IsNumeric(numerique(.Text)) Then
Sheets(2).Cells(i + 13, j + 1) = numerique(.Text)
Else
Sheets(2).Cells(i + 13, j + 1) = .Text
End If
End With
Next j
Next i
End With
With Sheets("Impression")
.Range("b5") = Fournisseur
.Range("d5") = Numéro
.Range("g5") = DateJournée
.Range("d7") = CDbl(MontantTTC)
.Range("d8") = CDbl(TextBox2)
.Range("d9") = CDbl(TextBox1)
End With
End Sub