Sub ExtractionDate(Adr)
Dim Donnée As String ', Ladate As Date
Dim NbD As Integer, X As Integer, Y As String
Dim Datdonnée As Date, LaDate
Sheets("Feuil3").Activate
Donnée = Range("CQ" & Adr).Value
NbD = Len(Donnée)
'---- recherche position de la date dans la chaine - recherche du 1° caractère numérique ----
X = 2
For X = 1 To NbD
Y = Mid(Donnée, X, 2)
If IsNumeric(Y) = True Then
Exit For
End If
Next
'------------------ affichage de la date --------------------
LaDate = Right(Donnée, NbD + 1 - X)
'LaDate = Mid(Donnée, X, NbD - X + 1)
Datdonnée = Format(LaDate, dd / mm / yyyy)
Sheets("Feuil3").Range("A7").Value = Datdonnée
Call TransposeDonnées(Adr)
End Sub