Private Sub MonBoutonOk_Click()
Dim oWs As Worksheet
Unload MonUserform 'décharger l' Userform
Set oWs = Worksheets("MaFeuille") 'déclaration de la feuille contenant la liste
'si la feuille possède un filtre l'enlever et le remettre (des fois qu'il ne soit pas à l'endroit voulu)
'si elle n'en a pas lui en donner un
If oWs.AutoFilterMode Then
'la je pars du principe que le tableau part de A1 et que la feuille ne possède aucune données sur la ligne 1 hors du tableau
Range(oWs.Cells(1, 1), oWs.Cells(1, Cells(1, Columns.Count).End(xlToLeft).Column)).AutoFilter
Range(oWs.Cells(1, 1), oWs.Cells(1, Cells(1, Columns.Count).End(xlToLeft).Column)).AutoFilter
Else
Range(oWs.Cells(1, 1), oWs.Cells(1, Cells(1, Columns.Count).End(xlToLeft).Column)).AutoFilter
End If
'filtrage
Range(oWs.Cells(1, 1), oWs.Cells(1, Cells(1, Columns.Count).End(xlToLeft).Column)).AutoFilter _
Field:=2, Criteria1:="=toto1", Operator:=xlOr, Criteria2:="=toto2"
End Sub