Copier /coller tableau de taille variable

Sub Coller_tab()
    Application.ScreenUpdating = False
    Dim E
    Dim WsS As Worksheet, WsC As Worksheet
    Dim i As Integer
    Dim LigneAjout As Long
    Dim colAjout As Long

        E = Array("A")
        Set WsC = Worksheets("B")
        For i = 0 To UBound(E)
            Set WsS = Worksheets(E(i))
            LigneAjout = Application.Max(0, WsC.Range("A" & Rows.Count).End(xlUp).Row + 1)
            Dim DernCol As Integer
DernCol = WsC.Range("A4").End(xlToRight).Column
            MsgBox WsC.Range("A" & Rows.Count).End(xlUp).Row + 1
            MsgBox WsC.Range("A1").End(xlToRight).Column
            WsS.Range("$B$5:$K$18").Copy
            With WsC.Range("A" & LigneAjout)
                .PasteSpecial Paste:=xlPasteAllUsingSourceTheme, Operation:=xlNone _
                    , SkipBlanks:=False, Transpose:=False
            End With
        Next i
        Set WsC = Nothing: Set WsS = Nothing

        Worksheets("B").Range("A1").Select
        Application.ScreenUpdating = True
    End Sub