Syntaxe des fonctions

* Bonjour *

Qui a-t-il de faux dans ce code?

Code:

---

1 2 3 4 5 6 7 8

Function First(ByVal cel As Range) As Range Dim c As Range Set c = cel Do While c Is Nothing Set c = ActiveSheet.Cells(c.Row + 1, c.Column) Loop First = c End Function

---

J'ai une erreur du type "objet indefini" sur l'instruction First = c

salut,
quand on manipule un objet range, on utilise la syntaxe set

Code:

---

Set First = c

---

Oui je sais mais je ne pensais pas qu'il fallait appliquer cela aussi pour signifier le retour des fonctions, aucun des exemples que j'ai vu ne le faisant.
Merci !