Afficher et masquer l'infobul sous condition

Private Sub Worksheet_Change(ByVal Target As Range)
If Range("N18").Value <> "" Then
'Range("N18").ClearComments 'je supprime le commentaire existant
Range("P18").AddComment 'je créé le commentaire
Range("P18").Comment.Visible = True
commentaire = Range("P18").Text
Range("P18").Comment.Text Text:=commentaire
Else
Range("P18").ClearComments
End If
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
If Range("N18").Value <> "" Then
[P18].ClearComments
[P18].AddComment
[P18].Comment.Visible = True
[P18].Comment.Text Text:="Veuillez Sélectionner une Unité"
Else
[P18].ClearComments
End If
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
If Range("N18").Value <> "" Then
[P18].ClearComments
[P18].AddComment
[P18].Comment.Visible = True
[P18].Comment.Text Text:="Veuillez Sélectionner une Unité"
Else
[P18].ClearComments
End If
    For Each c In ActiveSheet.Comments
        c.Shape.Fill.ForeColor.SchemeColor = 6
        'c.Shape.AutoShapeType = msoShapeRoundedRectangle
        c.Shape.AutoShapeType = msoShapeHorizontalScroll
        c.Shape.OLEFormat.Object.Font.Name = "Verdana"
        c.Shape.OLEFormat.Object.Font.Size = 14
        c.Shape.TextFrame.AutoSize = True
    Next c
   If Not Intersect([P18], Target) Is Nothing And Target.Count = 1 Then
    If Target <> "" Then
    Target.Comment.Shape.Fill.ForeColor.SchemeColor = 52
    Target.Comment.Text Text:="Merci"
    fin = Timer + 3
        Do While Timer < fin
            DoEvents
        Loop
    Target.ClearComments
    Else
    Target.Comment.Visible = True
 End If
 End If
 

End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect([N18], Target) Is Nothing And Target.Count = 1 Then
        If Target <> "" Then
            Target.Offset(, 2).ClearComments
            Target.Offset(, 2).AddComment
            Target.Offset(, 2).Comment.Visible = True
            Target.Offset(, 2).Comment.Text Text:="Veuillez Sélectionner une Unité"
        Else
            Target.Offset(, 2).ClearComments
        End If
    End If
 
For Each c In ActiveSheet.Comments
    c.Shape.Fill.ForeColor.SchemeColor = 6
    'c.Shape.AutoShapeType = msoShapeRoundedRectangle
    c.Shape.AutoShapeType = msoShapeHorizontalScroll
    c.Shape.OLEFormat.Object.Font.Name = "Verdana"
    c.Shape.OLEFormat.Object.Font.Size = 14
    c.Shape.TextFrame.AutoSize = True
Next c
If Not Intersect([P18], Target) Is Nothing And Target.Count = 1 Then
    If Target <> "" Then
        Target.Comment.Shape.Fill.ForeColor.SchemeColor = 52
        Target.Comment.Text Text:="Merci"
        fin = Timer + 3
            Do While Timer < fin
                DoEvents
            Loop
        Target.ClearComments
     Else
     Target.Comment.Visible = True
End If
End If
  

End Sub