Re a tester
=ET(AL-AM>TIME(0,5,0),AL-AM<>"")
Avec une macro pour formater le cellules
Sub FormaterCellules()
Dim Plage As Range
Dim Cellule As Range
Dim AL As Date
Dim AM As Date
Dim Diff As Date
' Spécifiez la plage de cellules où vous avez les valeurs AL et AM
Set Plage = Range("AL1:AL100") ' Ajustez cette plage en fonction de vos besoins
' Parcourez chaque cellule de la plage
For Each Cellule In Plage
' Vérifiez si les cellules AL et AM ne sont pas vides
If Not IsEmpty(Cellule.Value) And Not IsEmpty(Cellule.Offset(0, 1).Value) Then
' Convertissez les valeurs des cellules en dates
AL = Cellule.Value
AM = Cellule.Offset(0, 1).Value
' Calculez la différence entre AL et AM
Diff = Abs(AL - AM)
' Formatez la cellule en fonction des conditions
If Diff > TimeValue("00:05:00") Then
Cellule.Interior.Color = RGB(255, 0, 0) ' Rouge
ElseIf Diff < TimeValue("00:05:00") Then
Cellule.Interior.Color = RGB(255, 0, 0) ' Rouge
ElseIf Diff <= TimeValue("00:04:59") Then
Cellule.Interior.Color = RGB(0, 255, 0) ' Vert
End If
End If
Next Cellule
End Sub