Copier/coller des cellules fusionneés

Bonjour,

Je travail sur un outil que je dois développer sous VBA et j'ai petit problème que j'ai tant essayé de le résoudre mais sans résultat.

Je veux copier\coller des cellules fussionner d'une feuil1 à une feuil2 tout en les gardants fusionnées et ayant la même couleur. J'ai adapter le code suivant mais il me sort toujours une erreur

Dim WsS As Worksheet, WsC As Worksheet
Dim C As Range
Dim firstAddress As String
    Set WsS = Sheets(1)
    Set WsC = Worksheets(unite)
   Set C = WsS.Cells.Find(unite, , xlValues, xlPart)
    If Not C Is Nothing Then
        firstAddress = C.Address
        Do                    'A partit de là je commence à faire la copie des données et les coller
C.Select           
Selction.copy
WsC.Range(C.Address).Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=False 
 Loop While Not C Is Nothing And C.Address <> firstAddress
        Application.CutCopyMode = False
    Else
        MsgBox "Le mot " & unite & " n'a pas été trouvé dans la feuille " & WsS.Name
    End If
    Set C = Nothing: Set WsC = Nothing: Set WsS = Nothing

Merci pour votre aide

Salut,

En ayant qu'un petit bout de code à disposition, c'est difficile de t'aider

Tu peux nous fournir ton fichier et le code complet, s'il-te-plait ?

A te relire.