merci gerard,
c'est bien ce que je m'etais dit car 17h hier ne renvoie pas la meme valeur que 17h aujourd'hui.
En fait, j'ai des enregistrements toutes les 5min, pr le reste du traitement, il faut que je travaille avec 1 enregistrement par heure.
voici 1 ptit fragment du code:
Columns('B:B').Select
Selection.NumberFormat = '[$-F400]h:mm:ss AM/PM'
For i = 2 To nblignes 'jusqu'au nbr de lignes scanne precedemment
Rows(i & ':' & i).Select 'selectionne 1 ligne a la fois
heure = Val('B' & i) 'valeur renvoyee de la cellule
If heure <> 0 Or 1 Or 2 Or 3 Or 4 Or 5 Or 6 Then 'etc
Selection.Delete Shift:=xlUp 'effeace les lignes qui ne correspondent pas a 1 heure ronde
End If
Next i
j'ai essaye avec TimeValue, mais marche pas...