Sub Ins_Img()
FicImg = Application.GetOpenFilename(".jpg,*.jpg", , "Choisissez l'image") ' choix nom du fichier
If FicImg = "Faux" Then Exit Sub
ActiveSheet.Pictures.Insert( _
FicImg).Select
Selection.Height = ActiveCell.Height
End Sub
Sub Rétabli_Image_Original()
Selection.ShapeRange.ScaleHeight 1, msoTrue, msoScaleFromTopLeft
End Sub
Sub Rétabli_Image_Cellule()
Selection.Height = ActiveCell.Height
End Sub