VBA - "clearcontents" sur celulles fusionnées

Bonjour à tous,

Voilà, j'ai créé une macro qui copie une ligne existante, efface le contenu des cellules et duplique le tout dessous.

Le problème est que j'ai des cellules fusionnées ... et que cela me crée une "erreur d'exécution 1004" car cela ne marche sur les cellules fusionnées.

Voici ma macro pour information :

    ActiveSheet.Unprotect Password:="M"

    Application.ScreenUpdating = False

    Dim numeroligne As Integer
    Sheets("FORMULAIRE").Select
    Application.Goto Reference:="LIGNEINSERTION"
    numeroligne = Selection.Row
    Application.Goto Reference:="ZONEMODELE"
    Selection.Copy
    Application.Goto Reference:="LIGNEINSERTION"
    Selection.Insert Shift:=xlDown

                Range(Cells(numeroligne + 1, 5), Cells(numeroligne + 1, 6)).ClearContents
                Range(Cells(numeroligne + 1, 8), Cells(numeroligne + 1, 9)).ClearContents
                Range(Cells(numeroligne + 1, 12), Cells(numeroligne + 1, 13)).ClearContents
                Range(Cells(numeroligne + 1, 15), Cells(numeroligne + 1, 16)).ClearContents
                Range(Cells(numeroligne + 2, 3), Cells(numeroligne + 2, 16)).ClearContents

    Application.ScreenUpdating = True

    ActiveSheet.Protect Password:="M"

Une solution ?

Merci de votre aide.

Bonjour couettecouette,

Tu peux pas joindre ton fichier ? Ce serait plus simple pour nous.

Bonjour à tous,

bonjour Couettecouette,

Pour effacer les cellules fusionnées il faut :

tu fusionne tes cellules en cliquant dans ta cellule il te détermine la 1ère cellule

et pour l'effacer tu ajuoutes dans ta macro

Range("a17").MergeArea.ClearContents

J'espère t'avoir répondu

Amicalement

Noel

Merci beaucoup pour la réponse.

Désolée de ne repasser que si tard.

Bonne journée.