Dim moncritere As String
Dim colone As String
Dim moncritere2 As String
moncritere = Range("a1")
colonne = Range("a2")
moncritere2 = Range("a3")
Dim colonne As String
Sheets("mesdonnes"").range("a6").Autofilter 1, moncritere 'premier filtre, appliqué sur la colonne 1
Sheets("mesdonnes"").range("a6").Autofilter colonne, moncritere2 'second filtre à appliquer sur la colonne déterminée dans la cellule A2, selon le critère déterminé dans la cellule A3