Bonjour job75,
Merci pour votre réponse.
La ligne qui permet d'effacer les données efface seulement les textes des cellules et non le contenu des objets.
Voici le code en entier :
Sub Bouton189_Cliquer()
Dim ncopie&, P As Range, h&, lig&, n&, o As OLEObject, c As Range...