Sub LancerMatch()
'
' Macro Lancer match
'
'
ActiveSheet.Unprotect
ActiveSheet.Shapes.Range(Array("Picture 13")).Select
Selection.ShapeRange.IncrementLeft -1000
Selection.ShapeRange.IncrementTop 1
Range("T5").Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub
Sub Retourdépart()
'
' Macro Retour Départ
'
'
ActiveSheet.Unprotect
ActiveSheet.Shapes.Range(Array("Picture 13")).Select
Selection.ShapeRange.IncrementLeft 520
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Range("A2").Select
End Sub