Range("F3").Select
On Error Resume Next
ActiveWorkbook.Worksheets("Feuil1").Range("test").Comment.Delete
ActiveWorkbook.Worksheets("Feuil1").Names("test").Delete
On Error GoTo 0
ActiveWorkbook.Worksheets("Feuil1").Names.Add Name:="test", _
RefersToR1C1:="='Feuil1'!R3C6"
ActiveWorkbook.Worksheets("Feuil1").Range("test").AddComment
ActiveWorkbook.Worksheets("Feuil1").Range("test").Comment.Text Text:=""