Sub TEST()
Dim xDepRet As Date
For Each xCell In Range("A8:A9")
xDecoupe = Split(xCell.Value, Chr(10))
For F = 0 To UBound(xDecoupe) - 1
If Left(xDecoupe(F), 6) = "Départ" Or Left(xDecoupe(F), 6) = "Retour" Then
xDepRet = Mid(xDecoupe(F), 11, 16)
Cells(xCell.Row, F + 2) = xDepRet
Else
Cells(xCell.Row, F + 2) = xDecoupe(F)
End If
Next F
Next xCell
End Sub