Option Explicit
Sub Extract()
'Déclaration des variables
Dim A 'index
Dim B 'véhicule
Dim C 'couleur
Dim D 'marque
Dim E 'pollution
Dim F 'date
' Initialisation des variables
A = Sheets("FILTRE").Range("A2").Value
B = Sheets("FILTRE").Range("B2").Value
C = Sheets("FILTRE").Range("C2").Value
D = Sheets("FILTRE").Range("D2").Value
E = Sheets("FILTRE").Range("E2").Value
F = Sheets("FILTRE").Range("F2").Value
'Initialisation
Sheets("RESULTAT").Select
Columns("A:F").Select
Selection.Delete Shift:=xlToLeft
Sheets("BD").Select
If ActiveSheet.FilterMode = True Then ActiveSheet.ShowAllData
'Filtres
If A <> "" Then ActiveSheet.Range("$A$1:$F$1048576").AutoFilter Field:=1,
_Criteria1:=A
If B <> "" Then ActiveSheet.Range("$A$1:$F$1048576").AutoFilter Field:=2,
_Criteria1:=B
If C <> "" Then ActiveSheet.Range("$A$1:$F$1048576").AutoFilter Field:=3,
_Criteria1:=C
If D <> "" Then ActiveSheet.Range("$A$1:$F$1048576").AutoFilter Field:=4,
_Criteria1:=D
If E <> "" Then ActiveSheet.Range("$A$1:$F$1048576").AutoFilter Field:=5,
_Criteria1:=E
If F <> "" Then
Sheets("FILTRE").Range("F2").Select
Selection.NumberFormat = "General"
Sheets("BD").Select
Columns("F:F").Select
Selection.NumberFormat = "General"
ActiveSheet.Range("$A$1:$F$1048576").AutoFilter Field:=6, Criteria1:=F
End If
'Extract
Columns("A:F").Select
Selection.Copy
Sheets("RESULTAT").Select
Range("A1").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Range("A1").Select
End Sub