Macro dans excel

Bonjour,
J'ai une feuille excel avec environ 60 photos miniatures.Quand je clique sur une elle s'agrandit de la taille que je souhaite, je reclique dessu elle reprend sa taille d'origine. 60 images 60 macros ! Y a-t-il un moyen de faire une seule macro ?
merci

Sub Macro1()
ActiveSheet.Unprotect
ActiveSheet.Shapes("Picture 1").Select
Selection.ShapeRange.ZOrder msoBringToFront
If ActiveSheet.Shapes("Picture 1").Width < 400 Then

With ActiveSheet.Shapes("Picture 1")

.Height = ActiveSheet.Shapes("Picture 1").Height + 400
.Width = ActiveSheet.Shapes("Picture 1").Width + 400
End With
Else
With ActiveSheet.Shapes("Picture 1")
.Height = ActiveSheet.Shapes("Picture 1").Height - 400
.Width = ActiveSheet.Shapes("Picture 1").Width - 400
End With
End If

ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub