Sub test_IV()
Dim i As Long
Dim x As String
For i = 1 To [A65536].End(xlUp).Row
If Cells(i, 1) Like "*I??*" Then
x = Mid(Cells(i, 1).Text, InStr(1, Cells(i, 1).Text, ":") + 1, 10)
MsgBox "Date trouvée : " & CDate(Application.Trim(x)) & _
Chr(13) & "en: " & Cells(i, 1).Address(0, 0) _
& " (ligne " & Cells(i, 1).Row & ")"
End If
Next
End Sub