Gestion de base de données

Bonjour,
Sur Cjoint j'ai déposé un classeur qui met en œuvre les collections en
VBA, j'ai copier un exemplaire de code Microsoft que je ne parviens pas
Í  configurer correctement, un petir coup de main svp.

https://www.cjoint.com/c/LComsFpgrGy

l'exemplaire MSF:
Sub ClassNamer()
Dim MyClasses As New Collection ' Crée un objet Collection.
Dim Num ' Compteur permettant d'individualiser les clés.
Dim Msg As String ' Variable devant contenir la chaͮne d'invite.
Dim TheName, MyObject, NameList ' Variants devant contenir les
données.
Do
Dim Inst As New Class1 ' Crée une nouvelle instance de Class1.
Num = Num + 1 ' Incrémente d'une unité la valeur de Num, puis
' obtient un nom.
' Msg = "Veuillez affecter un nom Í  cet objet." & Chr(13) _
' & "Appuyez sur Annuler pour afficher les noms présents" _
' & "dans la collection."
' TheName = InputBox(Msg, "Nommez les éléments de Collection")
' Inst.InstanceName = TheName ' Place le nom dans l'instance de
' l'objet.
'Les 6 Rem précédents sont remplacés par les 2 lignes suivantes
TheName = Cells(1, Num)
Inst.InstanceName = TheName
' Si l'utilisateur a saisi un nom, ajoute celui-ci Í  la
' collection.
If Inst.InstanceName <> "" Then
' Ajoute l'objet nommé Í  la collection.
MyClasses.Add Item:=Inst, Key:=CStr(Num)
End If
' Efface la référence en cours en prévision de la suivante.
Set Inst = Nothing
Loop Until TheName = ""
For Each MyObject In MyClasses ' Crée une liste des noms.
NameList = NameList & MyObject.InstanceName & Chr(13)
Next MyObject
' Affiche la liste des noms dans une zone de message.
MsgBox NameList, , "Noms des instances présentes dans la" _
& "collection MyClasses"

For Num = 1 To MyClasses.Count ' Supprime le nom de la collection.
MyClasses.Remove 1 ' Puisque les collections sont
' réindexées
automatiquement,
' supprime le premier
membre Í 
Next ' chaque itération.
End Sub