Microsoft 365 Supprimer des colonnes et des images

[LeLigérien]

Bien le bonjour à vous,
Je flanche sur une macro qui consiste à supprimer un groupe de colonnes et dans celle-ci il y a une image que j' ai nommé "Grafik"+ un numéro.
A chaque fois que supprime un groupe de colonne je souhaite supprimer l' image qui s'y trouve, en sachant que j'ai numéroté les image de 1 à 39.
Pour supprimer les colonnes ça fonctionne mais je n'arrive pas à incruster mes lignes de code pour effacer les images.

J'ai essayé d' insérer ça en rouge ,sans résultat :

' Suppression page vierge

Dim a, b, c, d, e As Integer
For a = 0 To 38
b = 828 - 21 * a
If Cells(16, b) <> "" Then
Else
e = 1
For d = 0 To 21

f = Grafik & e

c = b - 8
Columns(c).Delete Shift:=xlLeft

' Supprimer LesImages_Feuille_Active

Shapes.Range(Array(f)).Delete ' J'AI UN MESSAGE D'ERREUR A SE NIVEAU
e = e + 1

Next d
End If
Next a

Comme vous pouvez le constater je ne suis pas un pro de la macro

Avez vous une solution pour moi?
Merci par avance

 

[natorp]

Bjr LeLigérien

Sans fichier ce n'est pas évident de répondre, quel est le message d'erreur ?
A essayer :

Shapes.Range(Array(f)).Select
Selection.Delete

Cordialement, Gérard

 

[LeLigérien]

Merci pour ta réponse natorp mais cela ne fonctionne pas.
J'ai épuré au max le fichier pour pouvoir le joindre.