Re,
Le code que tu dois utiliser est celui que je t'ai fournis, il faut juste changer quelques petites choses:
PosGauche = cel.Left + (cel.Width - dimension) / 2
PosHaut = cel.Top + 20
ça par exemple, si tu veux exporter tes données sur une autre feuille, il faudra voir comment tu positionnes tes flèches, avec quelles informations, il faudra aussi changer ça:
Set forme = ActiveSheet.Shapes.AddShape(msoShapeRightArrow, PosGauche, PosHaut, dimension, dimension)
Ici, on décide d'ajouter la forme dans la feuille active, il faudra mettre une autre feuille, idem pour la suppression des formes:
'suppression formes
For Each forme In ActiveSheet.Shapes
If Right(forme.Name, 6) = "fleche" Then
forme.Delete
End If
Next forme
Enfin, si tu veux pouvoir actionner ta macro via autre chose qu'un bouton, il va falloir réfléchir à comment, via un évènement, via le bouton macro? etc...