Supprimer élement collection : erreur 5

Bonjour,

pourquoi ce code tout bête ne fonctionne pas ?

Function Données(TypeDonnée As String) As Collection
    Dim Données_ As New Collection

        Données_.Add ("Service")
        Données_.Remove ("Service")

Mais celui-là marche

Function Données(TypeDonnée As String) As Collection
    Dim Données_ As New Collection

        Données_.Add ("Service")
        Données_.Remove (1)

Comment je fais si je connais pas l'index de l'élément dans la collection ?

Merci

Bonjour,

Un exemple :

Sub EssaiCollection()
   Dim MaListe As New Collection
   MaListe.Add "Dupont"
   MaListe.Add "Martin"
   MaListe.Add "Zoe"
For i = 1 To MaListe.Count
   If MaListe(i) = "Martin" Then
      MaListe.Remove i
      Exit For
   End If
Next
MsgBox MaListe(2)
   Set MaListe = Nothing
 End Sub

A+