Macro pour rechercher et afficher un commentaire

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(ActiveCell, [A2:A65536]) Is Nothing Or ActiveCell = "" Then Exit Sub
Dim m As String
On Error Resume Next
m = Application.VLookup(ActiveCell, Sheets("Commentaires").[A:B], 2, 0)
If m = "" Then m = "Pas de commentaire"
[A:A].Validation.Delete
With ActiveCell.Validation
  .Add xlValidateInputOnly
  .InputMessage = m
End With
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
With Label1
  .Visible = False
  If Intersect(ActiveCell, [A2:A65536]) Is Nothing Or ActiveCell = "" Then Exit Sub
  Dim m As String
  On Error Resume Next
  m = Application.VLookup(ActiveCell, Sheets("Commentaires").[A:B], 2, 0)
  If m = "" Then m = "Pas de commentaire"
  .Caption = m
  .AutoSize = False
  .Width = 10000
  .AutoSize = True
  .Top = ActiveCell.Top
  .Left = ActiveCell.Offset(, 1).Left
  .Visible = True
End With
End Sub