Sub AfficherImg(Img As Integer)
ActiveSheet.Shapes(TabImg(Img)).Select
Selection.ShapeRange.LockAspectRatio = msoTrue
' Penser à convertir les centimètres
Selection.ShapeRange.Height = (DimImg(Img, 1) * 28.356)
Selection.ShapeRange.Width = (DimImg(Img, 2) * 28.356)
ActiveSheet.Range("A1").Select
End Sub
Sub MasquerImg(Img As Integer)
ActiveSheet.Shapes(TabImg(Img)).Select
Selection.ShapeRange.LockAspectRatio = msoTrue
Selection.ShapeRange.Height = 0
Selection.ShapeRange.Width = 0
ActiveSheet.Range("A1").Select
End Sub