effacer une image

[noon]

bonjour a tous

une question que j ai deja posé il y a peut de temps
mais je joint le fichier pour plus de facilité

quand j insere un nouveau cd
je peut mettre une image qui va me la mettre dans la colonne photo
mais aussi dans l onglet fiche en "D16"
si la photo est bien en "D16"et selectionné tous va bien
mais si la photo n est pas la erreur

Private Sub CommandButton1_Click()
Sheets("fiche").Select
Selection.Delete
Sheets("feuil1").Select
listecd.Show
End Sub

alors j ai essayer ca:

Private Sub CommandButton1_Click()
Sheets("fiche").Select
on error goto fin:
Selection.Delete
Sheets("feuil1").Select
fin:
listecd.Show
End Sub

mais sur cette feuille j ai des cellule fusionner
et il veut me les defusionner
(il est fou bill gates)


comment faire ???

autre chose je veut faire un copier de ma liste
et la coller dans l onglet info

quand je le fait un manu sa marche
mais en macro sa bug ?????
LA MACRO SE TROUVE SUR LE BONTON IMPRIMER LA LISTE

merci a tous

si mon idée interesse qu il la prenne qu il l ameliore
y a pas de droit d auteur hiiiii