Sub ChercheDate()
'---------------------------------------- Recherche cellule contenant /*/
Cells.Find(What:="/*/", After:=ActiveCell, LookIn:=xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False).Activate
xValeur = ActiveCell.Value 'On récupère la valeur de la cellule
xPos1 = InStr(1, xValeur, "/") 'On cherche la position du 1er caractère /
xJour = Mid(xValeur, xPos1 - 2, 2) 'A partir de cette position, on extrait le jour
xMois = Mid(xValeur, xPos1 + 1, 2) 'A partir de cette poistion, on extrait le mois
xAnnee = Mid(xValeur, xPos1 + 4, 2) 'A partir de cette position, on extrait l'année
xDateReconstituee = CDate(xJour & "/" & xMois & "/" & xAnnee)
End Sub