Bonjour à tous, j'ai un petit problème je fais une macro pour excel permettant de récupérer des données dans un progiciel ( REQPRO ) et à un moment je dois tester une collection qui est vide ou non mais à chaque fois je ressort une erreur "This collection is empty"

Je tiesn à préciser que je suis en Option Explicit donc tout est déclaré

voici la partie du code code correspondant :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
 For Each keyPackage In packageKeyList
        Range("A" & ligne).Value = keyPackage
        If keyPackage = 1 Then
            'Si c'est égal à 1 ne rien faire car sinon ça retourne une erreur.
            Else
            'Positionnement sur le package
            Set packageChoisi = m_oProj.GetPackage(keyPackage, ePackageWeight_Package)
            Range("B" & ligne).Value = packageChoisi.Name
            'Si nous sommes en fin de collection alors le package est vide
            If packageChoisi.HasChildren = True Then
                'Si le package est vide
                Range("C" & ligne).Value = "Le package est vide."
                Exit For
                Else
                'itemcurrent renvoit les packages existant dans le package
                If Not IsNull(packageChoisi.ItemCurrent) Then
                Set packageTest = packageChoisi.ItemCurrent
                Range("C" & ligne).Value = packageTest.Name
                packageGeneral.MoveNext
                ligne = ligne + 1
                Else
                'Si aucun sous-package mais que le package n'est pas vide
                Range("C" & ligne).Value = "Il n'y a pas de sous-package"
                ligne = ligne + 1
                End If
            End If
            ligne = ligne + 1
        End If
    Next keyPackage
en rouge la partie qui me pose problème....
bon la suite du code est peut-êter un peu embrouillé à force de modifier mais merci de ne pas prendre en compte

Merci d'avance pour vos réponses !