Merci Eric
Finalement j'ai fait comme ça :
Sub Macro2()
Fin = Sheets("bizarre").Range("A" & Rows.Count).End(xlUp).Row: YResult = 1
For Y = 1 To Fin
Ens = Range("A" & Y).Value
annee = Left(Ens, 4)
Mois = Mid(Ens, 5, 2)
Jour = Mid(Ens, 7, 2)
Range("D" & Y).Value = annee & "/" & Mois & "/" & Jour
Next
End Sub
En tout cas Merci à toi Eric :)
Eric