Salut O_ôUps,

ceci devrait répondre à ton problème :-)

Sub Macro2()
    Dim rngSelect   As Range
    
    ' j'ai supposé que les filtres sont sur la ligne 1
    Range("A1").Select
    
    ' filtrage
    'Selection.AutoFilter Field:=1, Criteria1:="TOTO"
    Selection.AutoFilter Field:=7, Criteria1:="*paris*"
    ' rngSelect =   toutes les cellules visibles (non masquées par le filtre)
    '               contigües à la cellule active
    Set rngSelect = ActiveCell.CurrentRegion.SpecialCells(xlCellTypeVisible)
    
    ' copy de la zone sélectionnée
    rngSelect.Copy
    
    Debug.Print rngSelect.Address
    ' ...
    ' commandes
    ' diverses et variées
    ' ...
    
    Set rngSelect = Nothing
End Sub