Macro: Erreur d'exécution '424' : Objet requis

Bonjour à tous,

Je me retrouve avec un soucis, lorsque j’exécute ma macro, j'obtiens une erreur d'exécution '424' : Objet requis

Or ma Bibliothèque d'objets Microsoft DAO est référencée.

Je ne comprends pas d'ou viens le problème.

Sub test()

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

Dim tab_exemple()
ReDim tab_exemple(derniere_ligne, 4)

     For i = 0 To derniere_ligne - 1
        tab_exemple(i, 0) = Worksheet.Range("A" & i + 1)
        tab_exemple(i, 1) = Worksheet.Range("B" & i + 1)
        tab_exemple(i, 2) = Worksheet.Range("C" & i + 1)
        tab_exemple(i, 3) = Worksheet.Range("D" & i + 1)
        tab_exemple(i, 4) = Worksheet.Range("E" & i + 1)

    Next
End Sub

Merci d'avance

Bonjour,

l'objet worksheet n'existe pas

mais cette instruction au début de ton code

set worksheet=worksheets("<nom de la feuille>") ' remplacer <nom de la feuille> par le nom qui va bien 

Bonjour et merci pour la réponse rapide

La macro étant destinée à plusieurs fichiers excel je ne peux pas fixer un nom d'onglet , du coup j'ai modifié comme ceci.

Sub test()

derniere_ligne = Workbook.ActiveSheet.Range("B" & Rows.Count).End(xlUp).Row

Dim tab_exemple()
ReDim tab_exemple(derniere_ligne, 4)
     For i = 0 To derniere_ligne
        tab_exemple(i, 0) = Range("A" & i)
        tab_exemple(i, 1) = Range("B" & i)
        tab_exemple(i, 2) = Range("C" & i)
        tab_exemple(i, 3) = Range("D" & i)
        tab_exemple(i, 4) = Range("E" & i)

    Next
End Sub

Hélas ça ne marche toujours pas, même message d'erreur.

A force de bidouille j'ai réussi à changer mon code et celui-ci marche

Sub Macro_essai()

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

    ActiveSheet.ListObjects.Add(xlSrcRange, Range(Cells(1, 1), Cells(derniere_ligne, 5)), , xlNo).Name = _
    "Tableau1"
    Range("Tableau1[#All]").Select

End Sub

Le problème n'est donc pas résolu pour la première macro mais le but final est atteint