Copier/coller dernière ligne non vide sur plusieurs colonnes

ThisWorkbook.Activate

Worksheets("Mensuel").Activate

DL = Range("B" & Rows.Count).End(xlUp).Row

DLA = Range("B" & Rows.Count).End(xlUp).Row + 1

ThisWorkbook.Worksheets("Mensuel").Range("B" & DL & ":DK" & DL).Copy

ThisWorkbook.Worksheets("Mensuel").Range("B" & DLA & ":DK" & DLA).Select

ActiveSheet.Paste

Application.CutCopyMode = False