Sub Lister()
Dim i As Long, Rdate As Date, RCategorie As String, RObjet As String, RParticipant As String
Dim FormatN As String
Sheets('Formulaire').Select
If IsDate(Range('F13')) Then Rdate = Range('F13')
If Range('F15') <> '' Then RCategorie = Range('F15')
If Range('F17') <> '' Then RObjet = Range('F17')
If Range('F19') <> '' Then RParticipant = Range('F19')
i = Range('D24').End(xlDown).Row
Range('D24:G' & i).ClearContents
Sheets('Dossiers').Select
Range('A2').Select
FormatN = Selection.NumberFormat
i = Sheets('Dossiers').Range('A2').End(xlDown).Row
If i = 65536 Then
Sheets('Formulaire').Select
Exit Sub
End If
If Rdate <> 0 Then Selection.AutoFilter Field:=1, Criteria1:='=' & Format(Rdate, FormatN), Operator:=xlAnd
If RCategorie <> '' Then Selection.AutoFilter Field:=2, Criteria1:='=' & RCategorie, Operator:=xlAnd
If RObjet <> '' Then Selection.AutoFilter Field:=3, Criteria1:='=' & RObjet, Operator:=xlAnd
If RParticipant <> '' Then Selection.AutoFilter Field:=4, Criteria1:='=' & RParticipant, Operator:=xlAnd
Sheets('Dossiers').Range('A1:D' & i + 1).Copy Sheets('Formulaire').Range('D23') ':G' & 24 + i)
Selection.AutoFilter
Sheets('Formulaire').Select
End Sub