Formatage de chaine

Dim date_cour As Date, Strg As String
date_cour = CDate(Mid(Replace(Strg, "1er", "1"), InStr(1, Replace(Strg, "1er", "1"), " ", 1) + 1))

Sub ok_test()
Dim x As String, fin_X As String
Dim tabl As Variant
x = "Mardi 1er juillet 2008"
tabl = Split(x, " ")
fin_X = Left(tabl(1), 1) & " " & tabl(2) & " " & tabl(3)
MsgBox CDate(fin_X)
End Sub

Sub ok_test_ii()
Dim x As String
Dim tabl As Variant
x = "Mardi 1er juillet 2008"
tabl = Split(x, " ")
MsgBox CDate(Left(tabl(1), 1) & " " & tabl(2) & " " & tabl(3))
End Sub