Copier coller cellules visi d'un onglet à autre jusqu’à la dernière ligne

Bonjour ,

Je viens solliciter votre aide , je souhaite copier les colonnes visibles de l'onglet "Equi" (depuis la cellule A5 et AH5 ) jusqu'à la dernière ligne et coller dans l'onglet "Regl" : j'ai enregistré la macro via le développeur mais cela ne vas jusqu'à la dernière ligne . voic le code :

Sheets("Equi").Select

Range("A5:DH5").Select

Range(Selection, Selection.End(xlDown)).Select

Selection.SpecialCells(xlCellTypeVisible).Select

Selection.Copy

Sheets("Regl").Select

Range("A1").Select

ActiveSheet.Paste

columns("G:H").Select

Application.CutCopyMode = False

Je vous remercie pour votre aide

Bonjour,

A tester :

Sub CopieFiltre()

Dim DerLig As Long
With Sheets("Equi")
    DerLig = .Range("A" & .Rows.Count).End(xlUp).Row
    .Range("A5:DH" & DerLig).SpecialCells(xlCellTypeVisible).Copy Sheets("Regl").Range("A1")
End With

End Sub

Sinon, tu peux remplacer :

DerLig = .Range("A" & .Rows.Count).End(xlUp).Row

par :

DerLig = .Rows.Count

Ce qui copiera les données jusqu'à la dernière ligne de la feuille, qu'elle soit vide ou non.

Merci Pedro , ça marche très bien