Impossible de modifier une cellule fusionnée

Bonjour les gens,

J'ai un petit soucis concernant le transfert de données d'un classeur à l'autre.

Depuis un classeur1, en cliquant sur un bouton, un nouveau classeur2 excel s'ouvre, est renommé et enregistrer automatiquement et des données contenu dans classeur1 sont réparties dans des cellules de classeur2.

Le problème, c'est que classeur2 a des cellules fusionnées, et j'obtiens donc le message "Impossible de modifier une cellule fusionnée".

Après avoir parcouru internet, j'ai pu voir qu'il fallait utilisé : "MergeArea.ClearContents", mais je ne vois pas comment (jamais fait)

Mon code:

Sub facture()

Dim Chemin As String, Fichier As String

Chemin = "C:\Users\XXXXXXX\Desktop\ent\Facture"
Fichier = "facture_client.xlsx"
Fichier2 = ThisWorkbook.Sheets("Clients").Range("B4") & "-" & Format(Date, "dd_mm_yy") & ".xlsx"
Fichier_Client = ThisWorkbook.Sheets("Clients").Range("B4") & ".xlsm"

Application.ScreenUpdating = False

Workbooks.Open Chemin & "\" & Fichier

Workbooks(Fichier).SaveAs Filename:=Chemin & "\" & Fichier2

Windows(Fichier_Client).Activate
Sheets("Clients").Range("B5").Copy
Windows(Fichier2).Activate
Sheets("Feuil1").Range("C21").Select
ActiveSheet.Paste Range("C21")

Application.ScreenUpdating = True
End Sub

Dans mon code, la cellule C21 est la cellule fusionnée.

Merci de votre aide

Bonjour

1) Dé-fusionner

2) Copier

3) Coller

Windows(Fichier2).Activate
Sheets("Feuil1").Range("C21").Select
ActiveCell.UnMerge
Windows(Fichier_Client).Activate
Sheets("Clients").Range("B5").Copy
Windows(Fichier2).Activate
Sheets("Feuil1").Range("C21").Select
ActiveSheet.Paste

Cordialement

Bonjour,

Merci pour ce retour:

Les cellules C et D sont effectivement "Dé-fusionnées", mais serait-il possible de les refusionner après avoir coller la cellule et de ne pas perdre les bordures de la cellule C21 (en effet, la cellule C21 est dans un tableau, et après avoir collé la valeur, la bordure inférieur disparait)?

Merci

bon, Pour la fusion, c'est OK: reste plus que le pb de bordure inférieur qui disparait

Problème résolu!!!

Merci pour l'aide apporté!