XL 2019 inserer commentaire image en macro

[la fifine]

bonjour à tous
je cherche le moyen d'inserer une image en commentaire dans la cellule active mais avec une macro et un bouton
j'ai essayé avec l'enregistreur mais ca fonctionne pas
actuellement je le fais à la main mais c'est fastidieux à la longue (trop de clics)
comment feriez vous cela?
merci

 

[la fifine]

Private Sub CommandButton6_Click()


  nf = Application.GetOpenFilename("Fichiers jpg,*.jpg")
  If nf = False Then Exit Sub
  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

j'ai trouvé ca et ca fonctionne très bien