Private Sub UserForm_Initialize()
Dim cellule&
With ListView1
For cellule = 3 To Cells(65535, 3).End(xlUp).Row
If CDate(Range("O" & cellule)) >= DateSerial(Year(Date), Month(Date), Day(Date) - 2) _
And CDate(Range("O" & cellule)) <= DateSerial(Year(Date), Month(Date), Day(Date) + 7) Then
.ListItems.Add , "A" & cellule, Range("A" & cellule)
.ListItems(cellule - 2).ListSubItems.Add , "B" & cellule, Range("B" & cellule).Text
.ListItems(cellule - 2).ListSubItems.Add , "L" & cellule, Range("L" & cellule).Text
.ListItems(cellule - 2).ListSubItems.Add , "M" & cellule, Range("M" & cellule).Text
.ListItems(cellule - 2).ListSubItems.Add , "N" & cellule, Range("N" & cellule).Text
.ListItems(cellule - 2).ListSubItems.Add , "O" & cellule, Range("O" & cellule).Text
.ListItems(cellule - 2).ListSubItems.Add , , cellule
End If
Next cellule
.FullRowSelect = True
.Gridlines = True
.ColumnHeaders.Add , , Cells(2, 1), 45
.ColumnHeaders.Add , , Cells(2, 2), 40
.ColumnHeaders.Add , , Cells(2, 12), 60
.ColumnHeaders.Add , , Cells(2, 13), 130
.ColumnHeaders.Add , , Cells(2, 14), 70
.ColumnHeaders.Add , , Cells(2, 15), 60
End With
ListView1.View = lvwReport
End Sub