[Résolu] Problème d'ajout d'une condition

cmt = IIf(Line1 = "", "No Comment!", Line1 & vbNewLine & Line2)

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Line1$, Line2$, cmt$
If Target.Cells.Count > 1 Then Exit Sub
If Intersect(Target, Range("A2:A100")) Is Nothing Or Target = "" Then Exit Sub
On Error GoTo PasDansListe
  Line1 = Application.VLookup(ActiveCell, Sheets(2).Range("A:C"), 2, 0)
  Line2 = Application.VLookup(ActiveCell, Sheets(2).Range("A:C"), 3, 0)
  cmt = Line1 & vbLf & Line2
  If Not Target.Comment Is Nothing Then Target.Comment.Delete
  Target.AddComment cmt
  Exit Sub

PasDansListe:
  If Not Target.Comment Is Nothing Then Target.Comment.Delete
  Target.AddComment "No Comment !"
End Sub