Mise en forme image

Bonjour,

j'insère mes images comme ceci

 i = 4   
    While i < 29
        If ActiveSheet.Range("C" & i).Value < ActiveSheet.Range("B" & i).Value - 5 Then
            Set objFeuille = ActiveSheet
            Set objPict = objFeuille.Pictures.Insert("D:\0 - Services\Industries\CLeanergie\icon classement poste\simley vert.png")
            With objPict
            .Left = Range("D" & i).Left
            .Top = Range("D" & i).Top
            End With
        End If
        If ActiveSheet.Range("C" & i).Value >= ActiveSheet.Range("B" & i).Value - 5 And ActiveSheet.Range("C" & i).Value < ActiveSheet.Range("B" & i).Value - 1 Then
            Set objFeuille = ActiveSheet
            Set objPict = objFeuille.Pictures.Insert("D:\0 - Services\Industries\CLeanergie\icon classement poste\simley jaune.png")
            With objPict
            .Left = Range("D" & i).Left
            .Top = Range("D" & i).Top
            End With
        End If
        If ActiveSheet.Range("C" & i).Value >= ActiveSheet.Range("B" & i).Value Then
            Set objFeuille = ActiveSheet
            Set objPict = objFeuille.Pictures.Insert("D:\0 - Services\Industries\CLeanergie\icon classement poste\simley rouge.png")
            With objPict
            .Left = Range("D" & i).Left
            .Top = Range("D" & i).Top
            End With
        End If
        i = i + 1
    Wend

donc comme je ne connais pas le nom je ne peux pas supprimer l’arrière-plan

alors voici mes questions :

- comment connaître ou définir un nom par rapport à mon insertion d'image ?
- comment en vba supprimer l'arrière-plan d'une image ?

c'est pas marrant si je savais faire la deuxième question ^^

merci d'avance