Création d'une fonction

Bonsoir le forum,

Ceci est le premier message que je poste, jusqu'à maintenant j'ai toujours réussi à trouver des réponses à mes questions en effectuant des recherches dans les précédents posts.

Mais là je ne trouve rien.

Alors voilà, j'essaye de créer une fonction contenant plusieurs variables, mais à chaque fois que je veux l'utiliser j'ai une erreur de compilation ("Attendu : =" ou "Erreur de syntaxe").

Voici ma fonction :

Function AjoutAutomatique(Feuille As String, Choix As String)

ligne = 2
Existe = False
Do Until Worksheets(Feuille).Cells(ligne, 1).Value = Empty
If LCase(Worksheets(Feuille).Cells(ligne, 1).Value) = LCase(Choix) Then
Existe = True
Exit Do
ElseIf LCase(Worksheets(Feuille).Cells(ligne, 1).Value) > LCase(Choix) Then
Worksheets(Feuille).Cells(ligne, 1).EntireRow.Insert Shift:=xlDown
Worksheets(Feuille).Cells(ligne, 1).Value = Choix
Existe = True
Exit Do
End If
ligne = ligne + 1
Loop

If Existe = False Then
Worksheets(Feuille).Cells(ligne, 1).Value = Choix
End If

End Function


et voici un exemple de son utilisation :

AjoutAutomatique("Editeurs", ChoixEditeur.Value)


Avec cette fonction je recherche dans la feuille Feuille la valeur Choix, si je la trouve je ne fais rien et si je ne la trouve pas je l'ajoute.

A priori si je comprends bien je devrais mettre :
AjoutAutomatique("Editeurs", ChoixEditeur.Value)=quelque chose

Or je ne vois pas pourquoi, j'ai déjà créer des fonctions similaires qui fonctionnaient très bien, la seule différence étant qu'elles ne contenaient qu'une seule variable.

Voilà, donc si quelqu'un peut m'apporter une réponse.
Merci à tous.