Public Base As Range
Sub Agrandir_image()
With ActiveSheet.Shapes(Application.Caller)
.ZOrder msoBringToFront
.Width = 610
.OnAction = "Diminuer_image"
Set Base = .TopLeftCell
.Left = (ActiveWindow.VisibleRange.Width - .Width) / 2
.Top = (ActiveWindow.VisibleRange.Height - .Height) / 2
End With
End Sub
Sub Diminuer_image()
With ActiveSheet.Shapes(Application.Caller)
.Height = 100
.OnAction = "Agrandir_image"
.TopLeftCell = Base
.Left = Base.Left
.Top = Base.Top
End With
End Sub
Sub initialiser()
For Each Image In ActiveSheet.Shapes
Image.OnAction = "Agrandir_image"
Next Image
End Sub