Sub ClicBouton()
' L'image porte le même numéro que le bouton correspondant.
N = Right(Application.Caller, 2) ' N° du bouton d'appel
Ligne = 2 * N + 4 ' Calcul de la ligne nom prénom
ActiveSheet.Shapes("Image" & N).Copy ' Copie de la signature
Nom = Cells(Ligne, "C") ' Nom
Prenom = Cells(Ligne, "E") ' Prénom
With Sheets("MIRE")
.Select
For Each Sh In .Shapes ' Effacement toutes images sauf Logo
If Sh.Name <> "Logo" Then Sh.Delete
Next Sh
.Paste Destination:=Sheets("MIRE").[G46] ' Copie signature
With .Shapes("Image" & N)
.Width = 165 ' Ajustement largeur
.Left = [G46].Left + 20 ' Centrage dans cellule
.Top = .Top + 25
End With
.[H14] = Nom: .[S14] = Prenom ' Insertion nom et prénom
.[H21].Select
End With
End Sub