fonction date XL - VBA

Bonjour à tous,

J'aimerai transposer ma formule xl en vba.
J'ai essayer d'écrire le code ci-dessous mais j'ai quelques souci dans la syntaxe...
Merci de vos réponses.

Code:

---

1 2	Set date_naiss = Sheets("calcul").Range("C2:C" & derniere_ligne) date_naiss = "=date(gauche(Source!x2;4);stxt(Source!x2;5;2);droite(Source!x2;2))"

---

Code:

---

date_naiss = CDate(Left(Range("Source!x2"), 4) & "/" & Mid(Range("Source!x2"), 5, 2) & "/" & Right(Range("Source!x2"), 2))

---