Appliquer commentaires à une colonne

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Cell As Range
Dim Plage As Range
n& = Cells(65536, [b][color=red]6[/color][/b]).End(3).Row
Set Plage = Range(Cells(2, [b][color=red]6[/color][/b]), Cells(n&, [b][color=red]6[/color][/b])) ' [color=blue]à partir de B6 mais c'est modifiable (Cells(2,6)) [/color]
Columns([b][color=red]6[/color][/b]).Cells.ClearComments
For Each Cell In Plage
If Cell.Value <> "" Then
    Cell.AddComment.Text "Appuyer sur F1 pour transfert vers tâches"[color=blue]' Possibilité d'envisager de multiples commentaires via une variable au format String [/color]
End If
Next Cell
Set Plage = Nothing
End Sub