Code pour défusionner un feuille

bonjour

pourriez-vous m'aider à trouver le code VBA pour défusionner toutes les cellules d'une feuille ?

j'ai essayé avec la macro manuelle mais un message apparait Mémoire insuffisante"

je vous joins le fichier vide avec seulement les entêtes de colonnes (sans données, pour info, il y a 3000 lignes avec des informations)

merci de votre aide

Bonjour,

Sheets("Feuil1").Cells.UnMerge

A+

merci !