Private Sub CommandButton1_Click()
Dim Dpt As String
Dpt = InputBox("Entrez n° département") & "*"
With Sheets("Clients")
With .Range("A2")
.AutoFilter
.AutoFilter Field:=5, Criteria1:=Dpt
MsgBox Feuil1.AutoFilter.Range.Columns(1).SpecialCells(xlCellTypeVisible).Cells.Count
End With
End With
End Sub