Exporter listview après un filtrage? bugge

Bonjour à tout le monde!
Voici un code que j'ai déjà utilisé par le passé mais dans ce cas, il ne fonctionne pas. Il bugge à la dernière ligne!
Je n'ai qu'une ligne de ma listview qui va sur ma feuille!
A votre avis que se passe t'il?
Pour mieux comprendre je joints le fichier.
Si je fais un filtre sur Numéro du devis, ça fonctionne! et quant je veux réimprimer un devis bugge?????(CommandButton5)



Dim Ligne As Integer, i As Integer, C As Integer
With Sheets("listedevis2")
Ligne = Sheets("listedevis2").Range("a65536").End(xlUp).Row
With ListView1
For i = 1 To .ListItems.Count
Sheets("listedevis2").Cells(Ligne + i, 1) = (.ListItems(i).Text)
For C = 1 To .ColumnHeaders.Count - 1
Sheets("listedevis2").Cells(Ligne + i, C + 1) = (.ListItems(i).ListSubItems(C).Text) ' le 1 envois au nombre de colonne dans la feuille

Next C
Next i
End With
End With

Merci,Merci,Merci,Merci,

BonjourGéraldvc

Vous avez dû ajouter une ou des colonnes dans votre liste de devis, nom ?

Voici le message que nous avons

Et quand on clique sur [Débogage] et qu'on déplace le curseur, voilà ou se situe l'erreur

Vous avez une boucle qui parcourt trop de colonnes

A+