Sub FiltreSelection()
Dim Critere As String
Critere = Sheets("Selection").Range("b3").Value
If Critere = "" Then
Sheets("A").Range("A3").CurrentRegion.AutoFilter Field:=1
Sheets("B").Range("A3").CurrentRegion.AutoFilter Field:=1
Else
Sheets("A").Range("A3").CurrentRegion.AutoFilter Field:=1, Criteria1:=Critere
Sheets("B").Range("A3").CurrentRegion.AutoFilter Field:=1, Criteria1:=Critere
End If
End Sub