Private Sub CommandButton1_Click()
ActiveSheet.AutoFilterMode = False
With Range("B8", [D65536].End(xlUp))
.AutoFilter Field:=2, Criteria1:="Telo"
.AutoFilter Field:=3, Criteria1:="Jean"
End With
End Sub
Private Sub CommandButton2_Click()
ActiveSheet.AutoFilterMode = False
With Range("B8", [D65536].End(xlUp))
.AutoFilter Field:=3, Criteria1:="jean-claude"
.AutoFilter Field:=1, Criteria1:="renault"
End With
End Sub