Compteur de ligne apres un tri

Bonjour tout le monde ! et bonnes fete de paques !

J'ai un fichier qui me sort une liste sous un forme de tableua comme ca (voir exemple)

ensuite on applique different filtre, la liste de ligne diminu

et j'aimerais savoir quelle idées vous avez pour automatiser le fait de copier les lignes restantes (résultat des filtres) et de les copier en transposé dans un autre fichier ou un autre onglet du meme fichier...

faudrait qui sache qu'elle sont les lignes qui sont afficher.. et je ne vois pas de solution..

merci d'avance pour vos réponses ! et bonne journée !

Bonjour,

avec filtre élaboré

Claude

merci de me repondre

mais du coup comme ca, je voi pas commet tu peux filtrer...?

et sinon quelqu'un a trouvé ca, ca permet de selectionner et de copier les lignes qu'il reste apres le filtre

donc là il manque le collé transposé à un autre endroit... des idées ...?

Sub CopieTransposeeLignesFiltrees()
    With Sheets("Résultat souhaté dan nouvo fich")
        .Range("C6").CurrentRegion.ClearContents

        Sheets("Outil").Range("A4").CurrentRegion.Copy
        .Range("B6").PasteSpecial Transpose:=True
    End With
End Sub

re,

Qu'est-ce qu'il a mon code, il sent le paté ?

Sub Filtre()
Dim Lg%, Lg2%
    Application.ScreenUpdating = False
    On Error Resume Next
        ActiveSheet.ShowAllData
    On Error GoTo 0
    Lg = Range("A65536").End(xlUp).Row
    Range("a4:g" & Lg).AdvancedFilter Action:=xlFilterInPlace, _
    CriteriaRange:=Range("a1:g2"), Unique:=False
        With Sheets("result")
            Lg2 = .Cells(6, 200).End(xlToLeft).Column
            If Lg2 > 3 Then .Range(.Cells(6, 3), .Cells(20, Lg2)).ClearContents
            Range("a5:g" & Lg).SpecialCells(xlCellTypeVisible).Copy
            .Range("c6").PasteSpecial Paste:=xlValues, Transpose:=True
            .Activate
        End With
    Application.CutCopyMode = False
End Sub

Claude