Private Sub Filtre()
Dim NomVille$, BD As Worksheet
Set BD = Sheets("BD")
NomVille = InputBox("Nom de la ville", "Nom de la ville", "Unknown")
'Efface les colonnes A à C qui accueillent le filtre
Range("A:C").Clear
'check for filter, turn on if none exists
If Not BD.AutoFilterMode Then BD.Range("A1").AutoFilter
BD.Range("A1").AutoFilter field:=2, Criteria1:=NomVille & "*" 'Un début de ville permet aussi le filtre Ex: "Par" pour "Paris"
BD.Range("_FilterDataBase").Copy [A4]
BD.AutoFilterMode = False
End Sub