[VBA] If dans une boucle For

Bonjour,



je rencontre un soucis sur une problématique VBA :

j'ai un fichier excel avec des données sou cette forme :
DA_CENTRAL_ENO_EXTRACT_BI_ECA_ATL 01/05/2017 22:00 Completed SCTCAA08 0:56:52
J_DA_CENTRAL_ENOOPSMS_CALCUL_ZONES_5 31/05/2017 20:01 ENDED_OK - ended normally SCTCAA07 4 h 7 min 43 s



(contenu des cellules de chaque ligne, nombre de lignes variable dans le temps)

Mon but est de récupérer la valeur (date) de la 5ème cellule de chaque ligne et de la coller dans la 6éme, sous condition que cette valeur ne contienne pas de ":". Le but étant de sortir toutes les dates au format "xx h xx min xx s"

(je fais autre chose derrière, mais mon problème se situe simplement à ce niveau)

Voici un extrait de mon code :

Sub Test()

For i = 2 To Sheets(1).Range("A65000").End(xlUp).Row
DUREE = Sheets("Feuil1").Cells(i, 5).Value
If Not DUREE Like "*:*" Then

Cells(i, 6) = DUREE
End If

Next i

End Sub

Mon problème étant que visiblement ma condition édictée via le if n'est pas prise en compte, car toutes les lignes de mon fichier se voient ajoutée la valeur de i5 dans i6, et ce qu'il y ait présence ou non des ":"

Quelqu'un saurait il m'aider ?