Vérifier si tableau VBA (array) est vide?

Bonjour,

J'essaye de coder un code qui vérifie si mon array est vide ou non.

Voici mon essai:

MyCheck = IsEmpty(TAB_Cost)

    If MyCheck = True  Then
        If MsgBox("Please import SSRS_Cost data !", vbCritical + vbOKOnly, "Data update missing!") = vbOK Then
            Exit Sub
        End If
End if

Mon tableau est déclaré comme ceci: Global TAB_Cost ()

Cette fonctionne mais renvoi comme valeur false alors que mon tableau est bien vide. J'imagine que je n'utilise pas la bonne procédure. Comment faut-il s'y prendre?

Merci à vous,

Function estvide(anArray As Variant) As Boolean
Dim i As Integer
On Error Resume Next
    i = UBound(anArray, 1)
If Err.Number = 0 Then
    estvide = False
Else
    estvide = True
End If
End Function

sub toto()
x = estvide(TAB_Cost)
end sub

Nickel, ca fonctionne parfaitement.

Merci