Microsoft 365 Excel/VBA : copier plusieurs feuilles dans une seule

Sub Worksheet_Activate()
    Dim DL%, Mois(), N%, DLcompta%, NbLignes%
    DL = Range("B65500").End(xlUp).Row
    If DL > 1 Then Range("A2:O" & DL).ClearContents ' On efface le tableau
    Application.ScreenUpdating = False
    ' On passe par un array pour être sur d'avoir la liste par ordre chronologique
    Mois = Array("Jan", "Fév", "Mars", "Avril", "Mai", "Juin", "Juillet", "Aout", "Sept", "Oct", "Nov", "Déc")
    For N = 0 To 11
        With Sheets(Mois(N))
            DL = .Range("A65500").End(xlUp).Row
            If DL > 3 Then ' Car liste commence en 4
                DLcompta = Range("B65500").End(xlUp).Row: NbLignes = DL - 3
                Range("B" & DLcompta + 1 & ":O" & DLcompta + NbLignes) = .Range("A4:N" & DL).Value  ' Copier Coller valeurs
            End If
        End With
    Next N
    ' Transfert du N° de facture de la colo O à la col A
    DL = Range("B65500").End(xlUp).Row: Range("A2:A" & DL) = Range("O2:O" & DL).Value
    [O:O].ClearContents
    Application.ScreenUpdating = True
End Sub