Extraire une date d'une chaine de caractère

Bonjour

Je souhaite extraire en vba la date 08/03/2020 de cette chaine de caractère :

Piece journée encaissement: Type jou => 'PAIE', Code Journée => 'TMC728.08.03.2020']_Co.TCM.08.03.2020

j'ai essaye macro suivant et j'ai obtenue cette résultat 03/08/2020 mais c'est faux

Sub test()
Range("A2").Value = Right(Range("A" & 1), 10)
Range("A2").Replace What:=".", Replacement:="/", LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
End Sub

Aidez moi SVP

Bonjour,

Une seule ligne devrait suffir :

Sub Macro1()

Range("A2").Value = CDate(Replace(Right(Range("A" & 1), 10), ".", "/"))

End Sub

Mille Merci mr

de rien .