Sub essaigg()
Dim FePlanning As Worksheet
Dim FeOutils As Worksheet
Dim I As Long 'pas de type Double
Set FePlanning = Worksheets("planning")
Set FeOutils = Worksheets("outils")
'copie l'image. Il serait préférable de leurs donner un
'nom de façon à les identifier facilement (dans la zone de nom,
'saisir un nom et appuis sur Entrée)
FeOutils.Shapes("AutoShape 3").Copy
'colle les copies de la flêche vers le bas(AutoShape 3) en
'colonne D de la ligne 5 à la ligne 22
For I = 5 To 22
FePlanning.Paste
With Worksheets("planning").Shapes("AutoShape 3")
'nomme les flêches, les dimensionne à la cellule
'et les positionne
.Name = "FlecheBas_" & I
.Width = FePlanning.Cells(I, 4).Width '<--virer si doit pas être redimensionné
.Height = FePlanning.Cells(I, 4).Height '<--virer si doit pas être redimensionné
.Top = FePlanning.Cells(I, 4).Top
.Left = FePlanning.Cells(I, 4).Left
End With
Next I
End Sub
Sub Supprimer()
Dim Sh As Shape
'supprime tous les Shapes de la feuille
For Each Sh In Worksheets("planning").Shapes
Sh.Delete
Next Sh
End Sub