Appel d'une méthode, bloc with non défini

Bonjour (ceci est un doublon de post du forum développez comme je ne connais pas vraiment leur communauté vba),

J'ai un problème depuis un moment que je n'arrive pas à résoudre (je l'ai contourné mais cette fois ce n'est plus possible)

Pour résumer, j'ai une classe A donc j'ai déclaré un tableau à l'intérieur d'une classe B qui a une instance global au projet.

La classe A possède certainement méthode, pour faire un test j'ai fait une procédure test avec un simple MsgBox.

Malheureusement quand j'appel l'objet à travers mon tableau (objets(i).test) il me dit alors que mon ma variable d’exécution ou bloc with n'est pas défini (erreur d’exécution 91)

Si quelqu'un pouvait m'aider un peu je lui en serais reconnaissant

Merci d'avance

Bonne Journée

Fichier:

https://drive.google.com/file/d/0B8X6MAV7nsf7X3c3c3JWTjFYbzQ/edit?usp=sharing

Je vois une bonne trentaine de possibilités d'erreur. Montre ton code.

Désolé j'y ai pensé après

Fichier ajouté, attention les yeux le code vba est juste horrible

euh pourquoi je ne peux pas ajouter de pièces jointes?

edit: j'ai mis le fichier en ligne sur GoogleDrive (j'espère que vous n'aurez pas besoin d'un compte)

j'ai mis à jour le premier message

edit2:

Je viens de trouver une erreur similaire, peut être que si je la comprend se sera également le cas pour la première:

Function activityRange(name As String) As range

    Dim i As Integer
    Dim cell As Variant
    Dim activities As ListObject
    cell = range("SCHEDULE").value

    Set activities = range("SCHEDULE").ListObject

    Dim header() As String
    ReDim header(range("Sval").value)

    For i = 1 To UBound(header, 1)

        If cell <> "" Then
            header(i) = cell

        Else
            i = i - 1

        End If

        cell = range("SCHEDULE").Offset(0, i).value

    Next i

    For i = 1 To UBound(header)

        If header(i) = name Then
             activityRange = activities.ListColumns(i).range 'Erreur ici
     End If
   Next i

End Function