Function retournant un tableau

Bonjour,

Je ne trouve pas la syntaxe du fonction qui retourne un tableau de String
et comment je fais l'appel
exemple :

Code:

---

1 2 3 4 5 6 7

Function Remplir(val as string) as String() ??? dim tab() as String .... .... return tab() End function

---

et pour l'appelle :

Code:

---

1 2 3 4

... tab() = Remplir("toto") ...

---

merci d'avance

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

function rtab(x As String) As Variant Dim rep As Variant Dim boucle As Integer ReDim rep(1 To 12) For boucle = 1 To 12 rep(boucle) = x & Format(DateSerial(2007, boucle, 1), "mmmm") Next boucle rtab = rep End Function   Function usitertab() As String msgbox (rtab("mois de ")(5)) End Function

---