Bonjour François ,effectivement j'ai posé la question sur un autre site car je manquait de temps pour modifier mon fichier . J'ai trouvé l'erreur mais je galère avec les réglages de la listview et c'est la raison pour laquelle je vais surement revenir a une Listbox .Merci
Function show_data_in_listView()
Dim r As Integer, c As Integer
Dim lastrow As Long
Dim li As Object
ThisWorkbook.Sheets("Données").Activate
lastrow = Sheets("Données").Cells(Rows.Count, 14).End(xlUp).Row
With ListView1
.View = lvwReport
.CheckBoxes = False
.FullRowSelect = True
.Gridlines = True
For c = 1 To 12
With .ColumnHeaders
.Add , , Sheets("Données").Cells(1, c), Sheets("Données").Cells(1, c).Width
Worksheets("Données").UsedRange.EntireColumn.AutoFit
End With
Next c
For r = 13 To lastrow
Set li = .ListItems.Add(, , Cells(r, 1))
For c = 6 To 18
li.ListSubItems.Add , , Cells(r, c)
Next c
Next r
End With
End Function