Private Sub Filtrer_Click()
Dim c As Range
frmRecherche.ListView1.ListItems.Clear
With Sheets("BD")
For Each c In .Range(.Cells(2, 13), .Cells(.Cells(65000, 1).End(xlUp).Row, 13))
If IsDate(c) Then
If CDate(c) >= DTPicker1 And CDate(c) <= DTPicker2 Then 'MsgBox c.Value
With frmRecherche.ListView1
.ListItems.Add , , c.Offset(0, -12)
.ListItems(.ListItems.Count).ListSubItems.Add , , c.Offset(0, -11)
.ListItems(.ListItems.Count).ListSubItems.Add , , c.Offset(0, -10)
.ListItems(.ListItems.Count).ListSubItems.Add , , c.Offset(0, -9)
.ListItems(.ListItems.Count).ListSubItems.Add , , c.Offset(0, -8)
.ListItems(.ListItems.Count).ListSubItems.Add , , c.Offset(0, -7)
.ListItems(.ListItems.Count).ListSubItems.Add , , c.Offset(0, -6)
.ListItems(.ListItems.Count).ListSubItems.Add , , c.Offset(0, -5)
.ListItems(.ListItems.Count).ListSubItems.Add , , c.Offset(0, -4)
.ListItems(.ListItems.Count).ListSubItems.Add , , c.Offset(0, -3)
.ListItems(.ListItems.Count).ListSubItems.Add , , c.Offset(0, -2)
.ListItems(.ListItems.Count).ListSubItems.Add , , c.Offset(0, -1)
.ListItems(.ListItems.Count).ListSubItems.Add , , c
End With
End If
End If
Next c
End With
Unload Me
End Sub