Sub trouveDate()
For i = 2 To 122 ' timeLine.Cells.Count
LeFormatDate = Application.International(xlDateOrder)
Select Case LeFormatDate
Case 0
' DDateFormat = "mm/dd/yyyy"
If Mid(Cells(5, i), 4, 2) & "/" & Left(Cells(5, i), 2) = "28/02" Then MsgBox "Coucou"
Case 1
' DDateFormat = "dd/mm/yyyy"
If Left(Cells(5, i), 2) & "/" & Mid(Cells(5, i), 4, 2) = "28/02" Then MsgBox "Coucou"
Case 2
' DDateFormat = "yyyy/mm/dd"
If Right(Cells(5, i), 2) & "/" & Mid(Cells(5, i), 6, 2) = "28/02" Then MsgBox "Coucou"
Case Else
' DDateFormat = "yyyy/mm/dd"
If Right(Cells(5, i), 2) & "/" & Mid(Cells(5, i), 6, 2) = "28/02" Then MsgBox "Coucou"
End Select
Next i
End Sub