For Each sht In Sheets
If Left(sht.Name, 10) = Left(UserForm1.X1, 4) & "_" & DestiNom & "_" Then
' Cherche la dernière ligne du tableau
.ListItems.Add , , "X"
Ind = UserForm1.ListView4.ListItems.Count
.ListItems(Ind).ListSubItems.Add , , sht.Range("A" & DLig)
.ListItems(Ind).ListSubItems.Add , , sht.Range("B" & DLig)
.ListItems(Ind).ListSubItems.Add , , sht.Range("C" & DLig)
.ListItems(Ind).ListSubItems.Add , , sht.Range("D" & DLig)
.ListItems(Ind).ListSubItems.Add , , sht.Range("E" & DLig)
.ListItems(Ind).ListSubItems.Add , , sht.Range("F" & DLig)
.ListItems(Ind).ListSubItems.Add , , ""
.ListItems(Ind).ListSubItems.Add , , ""
.ListItems(Ind).ListSubItems.Add , , sht.Range("H2")
.ListItems(Ind).ListSubItems.Add , , ""
On Error Resume Next
UserForm1.CalculEvo
On Error Resume Next
UserForm1.Listview4Color
End If