Exporter une image depuis UF ImagList dans une cellule

Bonjour,
Après avoir chargé des images dans UF ImageList depuis un dossier sur dd, je souhaite les copier, selon certains critères, dans des cellules. Je me suis appuyé sur cette procédure 'https://silkyroad.developpez.com/VBA/ImageList/#LIII-A-5' mais qui ne fonctionne pas ou plus car peut être du à des évolutions de Windows (?) En guise de copie de l'image via le presse-papier, j'obtiens un carré noir. J'ai vérifié que l'ImageList était bien alimenté en mettant une de celles-ci sur un contrôle Image qui m'affiche correctement. Pour info, j'ai essayé diverses extensions mais rien n'y fait. Quelqu'un parmi vous aurait-il un avis puis une solution ? Je vous en remercie par avance. Cdlmt