Insérer un commentaire si...

Private Sub Worksheet_Change(ByVal Target As Excel.Range)

If Not Intersect(Target, Range("F18:NG18")) Is Nothing Then
    If Format(Target, "hh:mm") > "08:00" Then
        With Range(Target.Address)
            .AddComment
            .Comment.Text Text:="Heure(s) supplémentaire(s) effectuée(s)"
        End With
    Else: Range(Target.Address).ClearComments
    End If
End If
End Sub

Private Sub Worksheet_Change(ByVal Target As Excel.Range)

If Not Intersect(Target, Range("F18:NG18")) Is Nothing Then
   
    If Target > Sheets("Agent").Range("C36") * 2 Then
        With Range(Target.Address)
            .AddComment
            .Comment.Text Text:="Heure(s) supplémentaire(s) effectuée(s)"
        End With
    Else: Range(Target.Address).ClearComments
    End If
End If
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [F18:NG18]) Is Nothing Or Target.Count > 1 Then Exit Sub
Target.ClearComments
If Target > 2 * Sheets("Agent").[C36] Then Target.AddComment "Heure(s) supplémentaire(s) effectuée(s)"
End Sub

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Dim test As Boolean, h
If Sh.Name = "Agent" Then test = Intersect(Target, Sh.[C36]) Is Nothing
If Sh.Name = "Planning" Then test = Intersect(Target, Sh.[F18:NG18]) Is Nothing
If test Then Exit Sub
h = 2 * Sheets("Agent").[C36]
Application.ScreenUpdating = False
With Sheets("Planning").[F18:NG18]
    .ClearComments
    For Each Target In .Cells
        If Target > h Then Target.AddComment "Heure(s) supplémentaire(s) effectuée(s)"
    Next
End With
End Sub