Sub MOIS()
With UserForm1.ListView4
For Each sht In Sheets
If Left(sht.Name, 9) = "Févr" Then '<======probleme c'est ici
For i = 4 To sht.Range("A65536").End(xlUp).Row
.ListItems.Add , , "X"
Ind = UserForm1.ListView4.ListItems.Count
.ListItems(Ind).ListSubItems.Add , , sht.Cells(i, 1)
.ListItems(Ind).ListSubItems.Add , , sht.Cells(i, 2)
.ListItems(Ind).ListSubItems.Add , , sht.Cells(i, 3)
.ListItems(Ind).ListSubItems.Add , , sht.Cells(i, 4)
.ListItems(Ind).ListSubItems.Add , , sht.Cells(i, 5)
.ListItems(Ind).ListSubItems.Add , , sht.Cells(i, 6)
.ListItems(Ind).ListSubItems.Add , , ""
.ListItems(Ind).ListSubItems.Add , , ""
.ListItems(Ind).ListSubItems.Add , , ""
On Error Resume Next
UserForm1.CalculEvo
Next i
End If
Next sht
End With