Dim vdat1 As String
Dim vdat2 As Date
vdat1 = "03 août 2010"
vdat2 = Replace(vdat1, "août", "/08/")
Cells(4, 6).Select
Selection.NumberFormat = "mm/dd/yyyy;@"
Cells(4, 6).NumberFormat = "mm/dd/yyyy;@"
chaine ="Course 1 : PRIX DU HAVRE ATHLETIC CLUB (PRIX DU HAVRE) - Plat - HANDICAP DIVISE - 2400 mètres (23500, 9500, 7000, 4500, 2750)"
Dim chaine As String, t As String
chaine = "Course 1 : PRIX DU HAVRE ATHLETIC CLUB (PRIX DU HAVRE) - Plat - HANDICAP DIVISE - 2400 mètres (23500, 9500, 7000, 4500, 2750)"
t = Mid(chaine, InStr(chaine, " mètres") - 4, 4)