Private Sub CommandButton1_Click()
If CBT1 = "" Then
MsgBox "Entrez votre premier critère": CBT1.SetFocus
Else
If CBT2 = "" Then
MsgBox "Entrez votre second critère": CBT1.SetFocus
Else
Cells(1).CurrentRegion.AutoFilter Field:=2, Criteria1:="=*" & CBT1.Value & "*", Operator:=xlAnd, Criteria2:="=*" & CBT2.Value & "*"
End If
End If
End Sub