Extraction

Pour inclure une petite gestion de l'erreur ....

'--------------------------------------------------------
Sub Test()
Dim T As String

'La date "11-07-2017" à extraire.
T = "19-05-2017 au 19-07-2017"
If IsDate(Right(T, 10)) Then
With Range("A1")
'ou le format date que tu désires
.NumberFormat = "DD/MM/YYYY"
.Value = Extrait_Date(T)
End With
Else
MsgBox "Les 10 derniers caractères """ & Right(T, 10) & _
""" ne représentent pas une date reconnue par Excel."
End If

End Sub

'--------------------------------------------------------
Function Extrait_Date(LaDate As String) As Date
Dim An As Long, Mois As Long, Jour As Long
Dim X As Date

An = CLng(Right(LaDate, 4))
Mois = CLng(Mid(LaDate, Len(LaDate) - 6, 2))
Jour = CLng(Mid(LaDate, Len(LaDate) - 9, 2))
X = DateSerial(An, Mois, Jour)
Extrait_Date = X

End Function
'--------------------------------------------------------

MichD