Masquer File

Sub HideHyperlinkScreenTip()
Dim H As Hyperlink
Dim Adresse As String

 For Each H In Worksheets("Feuil1").Hyperlinks
    Adresse = H.Range.Address
    With Range(Adresse)
        On Error Resume Next
        .Comment.Delete
        On Error GoTo 0
        .AddComment ""
        With .Comment.Shape
            With .Fill
                .Visible = msoFalse
                .Transparency = 0#
            End With
            With .Line
            .Visible = msoFalse
            .Transparency = 0#
            End With
            .Height = 0#
                .Width = 0#
       End With
    End With
 Next
End Sub