Dim ligne As Integer
ligne = 2
Do Until ActiveSheet.Cells(ligne, 18) = ''
If ActiveSheet.Cells(ligne, 18) < '-00:15:00' Then
ActiveSheet.Cells(ligne, 19) = 'Avance'
Else
If ActiveSheet.Cells(ligne, 18) > '00:15:00' Then
ActiveSheet.Cells(ligne, 19) = 'Retard'
Else
ActiveSheet.Cells(ligne, 19) = 'Respecté'
End If
End If
ligne = ligne + 1
Loop