Private Sub UserForm_Initialize()
Dim DerLgn&, L%, X% 'sauf erreur tu n'utilises pas ces variables dans cette procédure
Dim a As Worksheet, y&
Set a = Sheets("Atteinte")
With Me.ListView1
.ListItems.Clear
With .ColumnHeaders
.Clear
.Add , , "1000", 100, 0
.Add , , "2000", 100, 0
.Add , , "3000", 100, 0
.Add , , "4000", 100, 0
.Add , , "5000", 100, 0
.Add , , "6000", 100, 0
.Add , , "7000", 100, 0
End With
.View = 3
.FullRowSelect = True
.Gridlines = True
For i = 3 To a.Range("A65536").End(xlUp).Row
.ListItems.Add , , Format(CDec(a.Cells(i, 1)), "0000")
y = .ListItems.Count
.ListItems(y).ListSubItems.Add , , Format(a.Cells(i, 2), IIf(a.Cells(i, 2) > 0, "dd mmm yyyy", ";;;"))
.ListItems(y).ListSubItems.Add , , Format(a.Cells(i, 4), "dd mmm yyyy")
.ListItems(y).ListSubItems.Add , , Format(a.Cells(i, 6), "dd mmm yyyy")
.ListItems(y).ListSubItems.Add , , Format(a.Cells(i, 8), "dd mmm yyyy")
.ListItems(y).ListSubItems.Add , , Format(a.Cells(i, 10), "dd mmm yyyy")
.ListItems(y).ListSubItems.Add , , Format(a.Cells(i, 12), "dd mmm yyyy")
.ListItems(y).ListSubItems.Add , , Format(a.Cells(i, 14), "dd mmm yyyy")
Next
End With
End Sub