Bonjour,
Ici, on évite d'utiliser des mots grossiers car ça ne sert à rien et ne fait pas avancer le projet donc, évites !
Maintenant, voici une piste pour insérer deux flèches tête bêche avec une procédure pour chacune d'entre elles (exécuter la sub "Test()" puis dans la feuille Excel, cliquer sur les flèches pour voir les messages :
Sub Test()
Dim Fe As Worksheet
Dim Fleche As Shape
Dim Gauche As Single
Dim Haut As Single
Dim Large As Single
Dim Epais As Single
Dim Esp As Single
Set Fe = ActiveSheet
Large = 20
Epais = 20
Gauche = Fe.Range("D10").Left
Haut = Fe.Range("D10").Top
Set Fleche = Fe.Shapes.AddShape(34, Gauche, Haut, Large, Epais)
Fleche.OnAction = "AGauche"
Esp = 3
Gauche = Fleche.Left + Fleche.Width + Esp
Set Fleche = Fe.Shapes.AddShape(33, Gauche, Haut, Large, Epais)
Fleche.OnAction = "ADroite"
End Sub
Sub AGauche()
MsgBox "Clic sur la flèche vers la gauche !"
End Sub
Sub ADroite()
MsgBox "Clic sur la flèche vers la droite !"
End Sub