Sélectionner la derniere ligne de mon tableau

Bonjour,

J'ai un tableau qui se remplis tous les jours, j'aimerais qu'avec juste un bouton je puisse sélectionner la dernière ligne de valeur, les copier et enfin les coller.

Sub copiecolle()

    Range("B1").Select
    Selection.End(xlDown).Select
    ActiveSheet.Cells(ActiveCell.Row, 1).Select
Rows(ActiveCell.Row).Select
End Sub

J'ai réussi à sélectionner la dernière "ligne" mais du coups ça me prend toute la ligne ... J'aimerais sélectionner seulement la plage de valeurs (plage de valeurs : de la dernière ligne colonne A : dernière ligne colonne H)

J’espère que vous aller pouvoir m'aider :)

Si vous avez besoin de plus d'info je suis présent

bonjour Danang

comme ceci peut être

Dim derligbut As Long
derligbut = Sheets("Feuil1").Cells(Application.Rows.Count, "A").End(xlUp).Row
Range("B" & derligbut + 1).Select

PAPYG

Bonjour,

Teste ceci

Sub copiecolle()
    Dim Dl%
    Dl = Range("B1").CurrentRegion.End(xlDown).Row
    Range(Cells(Dl, 1), Cells(Dl, 8)).Select
End Sub

et pour une plage remplacer

Range("B" & derligbut + 1).Select

par

Range("A" & derligbut + 1 & ":H" & derligbut + 1).Select

PAPYG

J'ai à chaque fois fois "la méthode select de la classe range a échoué."

Je vous met le tableau en copie..

Re,

Comme ceci

Sub copiecolle()
 Dim Dl%
    Dl = Range("B1").End(xlDown).Row
    Range(Cells(Dl, 1), Cells(Dl, 8)).Select

End Sub

Merci beaucoup a tous