Private Sub UserForm_Initialize()
Dim i As Long
With Sheets("Suivi des Actions")
For i = 2 To .Range("b" & Rows.Count).End(xlUp).Row
'si la date en colonne F est égale à la date d'aujourd'hui - 1 jour,
'et si dans la colonne H c'est vide.
If _
.Range("B" & i).Value = "Sécurité" _
And .Range("G" & i).Value = Date - 1 _
And Len(.Range("I" & i).Value) = 0 _
Then
Me.ListBox1.AddItem
Me.ListBox1.Column(0, Me.ListBox1.ListCount - 1) = .Range("A" & i).Value
Me.ListBox1.Column(1, Me.ListBox1.ListCount - 1) = .Range("B" & i).Value
Me.ListBox1.Column(2, Me.ListBox1.ListCount - 1) = .Range("C" & i).Value
Me.ListBox1.Column(3, Me.ListBox1.ListCount - 1) = .Range("D" & i).Value
Me.ListBox1.Column(4, Me.ListBox1.ListCount - 1) = .Range("E" & i).Value
Me.ListBox1.Column(5, Me.ListBox1.ListCount - 1) = .Range("F" & i).Value
Me.ListBox1.Column(6, Me.ListBox1.ListCount - 1) = .Range("G" & i).Value
Me.ListBox1.Column(7, Me.ListBox1.ListCount - 1) = .Range("H" & i).Value
Me.ListBox1.Column(8, Me.ListBox1.ListCount - 1) = .Range("I" & i).Value
Me.ListBox1.Column(9, Me.ListBox1.ListCount - 1) = .Range("J" & i).Value
End If
Next
End With
'Puis une fois que c'est sur la liste,
'les lignes ayant en colonne A, le "R" n’apparaîtront plus si la date en colonne F est égale à Aujourdhui - 3 jours.
For i = 0 To Me.ListBox1.ListCount - 1
If Me.ListBox1.Column(0, i) = "R" And Me.ListBox1.Column(6, i) = Date - 3 Then
Me.ListBox1.List(i).Delete
End If
Next
End Su