Sub ExtraitPhotoCmtJPG()
' export en JPG des images en commentaire à faire une fois
' export dans le répertoire de ce classeur
répertoire = ThisWorkbook.Path & "\"
Set f = Sheets("BD")
For Each c In f.Range("b2:b" & f.[b65000].End(xlUp).Row)
c.Offset(, 8).Comment.Visible = True
H = c.Offset(, 8).Comment.Shape.Height
L = c.Offset(, 8).Comment.Shape.Width
c.Offset(, 8).Comment.Shape.CopyPicture
f.ChartObjects.Add(0, 0, L, H).Chart.Paste
f.ChartObjects(1).Border.LineStyle = 0
f.ChartObjects(1).Chart.Export Filename:=répertoire & c.Offset(, -1) & ".jpg", FilterName:="jpg"
f.ChartObjects(1).Delete
Next c
End Sub