Insérer un commentaire et y afférer dessuite une image au choix (parcourir...)

Sub insertComment()
'
' insertComment Macro
' ajout d'une image en com
'
' Touche de raccourci du clavier: Ctrl+w
'
    Range("F53").Select
   [COLOR=Yellow] Range("F53").AddComment[/COLOR]
    Range("F53").Comment.Visible = False
    Range("F53").Comment.Text Text:=""
    With Selection.Font
        .Name = "Tahoma"
        .FontStyle = "Gras"
        .Size = 8
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .ColorIndex = xlAutomatic
        .TintAndShade = 0
        .ThemeFont = xlThemeFontNone
    End With
    Selection.ShapeRange.ScaleWidth 1.81, msoFalse, msoScaleFromTopLeft
    Selection.ShapeRange.ScaleHeight 2.61, msoFalse, msoScaleFromTopLeft
    Selection.ShapeRange.Fill.Transparency = 0#
    Selection.ShapeRange.Line.Weight = 0.75
    Selection.ShapeRange.Line.DashStyle = msoLineSolid
    Selection.ShapeRange.Line.Style = msoLineSingle
    Selection.ShapeRange.Line.Transparency = 0#
    Selection.ShapeRange.Line.Visible = msoTrue
    Selection.ShapeRange.Line.ForeColor.RGB = RGB(0, 0, 0)
    Selection.ShapeRange.Line.BackColor.RGB = RGB(255, 255, 255)
    Selection.ShapeRange.Fill.Visible = msoTrue
    Selection.ShapeRange.Fill.ForeColor.RGB = RGB(255, 255, 255)
    Selection.ShapeRange.Fill.BackColor.RGB = RGB(255, 255, 225)
    Selection.ShapeRange.Fill.UserPicture _
        "C:\Documents and Settings\609012249\Mes documents\Copenhagen_center_street.jpg"
    Selection.ShapeRange.ScaleWidth 1.01, msoFalse, msoScaleFromTopLeft
    Selection.ShapeRange.ScaleHeight 1.25, msoFalse, msoScaleFromTopLeft
End Sub

Sub essai()
 nf = Application.GetOpenFilename("Fichiers jpg,*.jpg")
 With ActiveCell
    .ClearComments
    .AddComment
    .Comment.Shape.Fill.UserPicture nf
    .Comment.Shape.Height = 50
    .Comment.Shape.Width = 50
    .Comment.Shape.ScaleHeight 1.2, msoFalse, msoScaleFromTopLeft
 End With
End Sub