Sub Feuil1_Photo1_QuandClic()
'procedure sur la photo1
Dim x As Range: Set x = Sheets("Feuil1").Range("B13")
'declaration de la variable x
Application.ScreenUpdating = False
'mise a jour de l ecran desactivée
x.Value = x.Value + 1
'incrémentation de x (compteur)
If x.Value > 2 Then x.Value = 1
'si x est supérieur à 2 alors x = 1
If Sheets("Feuil1").Range("B13") = 1 Then
'si la cellule B13 de la feuille 1 = 1 alors
ActiveSheet.Shapes("Photo1").Select
'selectionner photo1
Selection.ShapeRange.ScaleWidth 4, msoFalse, msoScaleFromTopLeft
Selection.ShapeRange.ScaleHeight 4, msoFalse, msoScaleFromTopLeft
'augmenter les dimensions de l'objet par 4
Selection.ShapeRange.Left = ActiveSheet.Range("D9").Left
Selection.ShapeRange.Top = ActiveSheet.Range("D9").Top
Selection.ShapeRange.ZOrder msoBringToFront
Sheets("Feuil1").Range("N3").Select
'place l'image au premier plan
Else
ActiveSheet.Shapes("Photo1").Select
'selection photo1
Selection.ShapeRange.ScaleWidth 0.25, msoFalse, msoScaleFromTopLeft
Selection.ShapeRange.ScaleHeight 0.25, msoFalse, msoScaleFromTopLeft
'diminue en multipliant les dimensions de l'objet par 0.4
Selection.ShapeRange.Left = ActiveSheet.Range("B11").Left
Selection.ShapeRange.Top = ActiveSheet.Range("B11").Top
Selection.ShapeRange.ZOrder msoBringToFront
Sheets("Feuil1").Range("N3").Select
'place l'image au premier plan
End If
End Sub