Afficher les valeurs d'une autre feuille à partir d'une feuille de base

[awa123]

Bonjour,

A partir de ma feuille "1" je voudrais que le code va à la feuille "mensuel1" du même classeur puis me m'affiche le contenu des cellules de la colonne B en partant de la ligne 7 jusqu'à la ligne 37.

pour cela j'ai le code suivant :

Sub Recup()

    Dim Plage As Range
    Dim NomFeuille As String
    Dim feuilleinitiale As String
    Dim tableau1()

    feuilleinitiale = CStr(Val(ActiveSheet.Name))

    With Worksheets(feuilleinitiale)
        'définie la plage a` recopier dans l'onglet de base
        Set Plage = .Range(.Cells(1, 1), .Cells(80, 40))
        tableau1 = Range("A4:P21")
    End With

    With Worksheets("mensuel1")
        'coller le contenu copié dans la nouvelle feuille créé a` partir de la cellule A1

        For i = 1 To 50
            MsgBox (Cells(6 + i, 2).Value)
        Next i

    End With

    feuille_suivante = CStr(Val(ActiveSheet.Name) + 1)
    Sheets.Add Before:=Sheets("mensuel")    'créer un nouvel onglet qui sera placera juste avant l'onglet "mensuel"
    ActiveSheet.Name = feuille_suivante

    With Worksheets(feuille_suivante)
        'coller le contenu copié dans la nouvelle feuille créé a` partir de la cellule A1
        Plage.Copy .Range("A1")
    End With
    
End Sub

mais il ne fonctionne pas

je vous joints mon fichier