Copié-collé graphique

Sub Cumul_Graphiques_Images_N_Colonnes()
'Stop
FDep = "Cumul Graphiques" 'ActiveSheet.Name
FGraph = "Graphique1"
FCumulGraph = "Cumul Graphiques"
Sheets(FCumulGraph).Pictures.Delete
MaxiGraphiques = 10 'Nombre de graphiques à tracer
NBColonnes = 4 'Nombre de colonne pour les graphiques sur la feuille
BoucleColonne = MaxiGraphiques / NBColonnes 'Nombre de boucle suivant le nombre de graphiques
NIncDeb = 1 'Numéro de Début de graphique
IncLigne = 27 'incrément pour la feuille en lignes
IncCol = 10 ''incrément pour la feuille en colonnes
Sheets.Add
'Insertion des coodronnées des graphiques suivant les paramètres précédents
ActiveSheet.Name = "Coord"
For k = 1 To MaxiGraphiques Step NBColonnes
Cells(k, 1) = 1 + (Int(k / NBColonnes) * IncLigne)
For p = 0 To NBColonnes - 1
Cells(k + p, 2) = 1 + (p * (IncCol - 1))
Next
Next
For Each cell In Range(Cells(1, 1), Cells(MaxiGraphiques, 1))
If cell = "" Then cell.Value = cell.Offset(-1, 0).Value
Next
 
For i = NIncDeb To MaxiGraphiques
Sheets(FDep).Select
ActiveSheet.Range("$A$4:$B$200").AutoFilter Field:=2, Criteria1:=i
'ActiveSheet.Range("$A$4").CurrentRegion.Select
ActiveSheet.Range("zone").Select
Sheets(FGraph).CopyPicture
Sheets(FCumulGraph).Select
'Range("A" & ((i - 1) * 28) + 1).Select
Cells(Sheets("Coord").Cells(i, 1).Value, Sheets("Coord").Cells(i, 2).Value).Select
ActiveSheet.PasteSpecial Format:="Image (métafichier amélioré)", Link:= _
        False, DisplayAsIcon:=False
        Selection.ShapeRange.Height = 340
Next
[A1].Select
Application.DisplayAlerts = False
Sheets("Coord").Delete
Application.DisplayAlerts = True
End Sub