XL 2016 Comptabiliser données de plusieurs feuilles dans une seule

Sub Worksheet_Activate()
    Dim F, L%
    [A3:E100].ClearContents
    Application.ScreenUpdating = False
    For Each F In Worksheets
        If F.Name <> "original (2)" And F.Name <> "Compilation données" And Sheets(F.Name).Cells(L, "K") <> "" Then
            If Right(F.Name, 2) = "21" Then
                For L = 9 To 11
                    If Sheets(F.Name).Cells(L, "K") <> "Total général" Then
                        DL = 1 + Range("A65500").End(xlUp).Row
                        Cells(DL, "A") = Sheets(F.Name).[G2]
                        Cells(DL, "B") = Sheets(F.Name).Cells(L, "K")
                        Cells(DL, "C") = Sheets(F.Name).Cells(L, "L")
                        Cells(DL, "D") = Sheets(F.Name).Cells(L, "M")
                        Cells(DL, "E") = Sheets(F.Name).Cells(L, "N")
                    End If
                Next L
            End If
        End If
    Next F
    Application.ScreenUpdating = True
End Sub