Sub Alexdubeffroi()
Dim Crit1 As String, Crit2 As String
Crit2 = "=Ferrari" 'mettre la variable issue de votre macro
With Sheets("Feuil1")
If .AutoFilterMode Then ' si la feuille est en mode filtre auto
If .AutoFilter.Filters(1).On Then 'si le filtre 1 est activé
Crit1 = .AutoFilter.Filters(1).Criteria1
.Range("A10").AutoFilter Field:=1, Criteria1:=Crit1, Operator:=xlOr, Criteria2:=Crit2
End If
End If
End With
End Sub