Selection des cellules triées par filtre auto

Salut le forum,



Depuis un petit moment je bidouille dans les macro mais la je bloque.

Comment faire pour selectionner une plage de cellules trié par un filtre automatique et nomé cette plage???

Voici le code que j'ai mais il ne fonctionne pas, si qqun à une idée ...

Private Sub CommandButton1_Click()
Dim opt As String

Dim i As Variant
For i = 1 To 21
opt = UserForm1.Controls('TextBox' & i).Text
If UserForm1.Controls('TextBox' & i).Text = '' Then
Exit Sub
Else
Selection.AutoFilter
Selection.AutoFilter Field:=4, Criteria1:=opt, Operator:=xlAnd
ActiveSheet.AutoFilter.Range.SpecialCells(xlCellTypeVisible).Select
ActiveWorkbook.Names.Add Name:=opt
Exit Sub
End If
Next i
End Sub


Merci d'avance....

@+ Chris