Transfert de données vers une autre feuilel

[Safety85]

Bonjour,

J'ai cette macro qui fonctionne pour un transfert de donnée entre deux feuilles mais seulement quand des cellules ne sont pas fusionnées.

Or il se trouve que j'ai les cellules BCDE et FGHI qui sont fusionnées entre elles.

Pouvez vous m'aider s'il vous plaît.

Sub TransfertOpérations()
Dim MyRange As Range
Dim i As Integer, j As Byte
Dim C As Variant
Dim S As String

Application.ScreenUpdating = False
Sheets("En cours").Range("A2:G30000").ClearContents


'Copie des lignes non validées de "SYN" dans "Base de données"
Set MyRange = Range(Sheets("SYN").[A2], Sheets("SYN").[A1000].End(xlUp))
For Each C In MyRange
If C.Offset(0, 7) = "NON" Then
C.EntireRow.Range("A1:G1").Copy
Sheets("En cours").Range("A10000").End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
End If
Next C

Application.ScreenUpdating = True
End Sub


MERCI D'AVANCE

SAFETY85

 

[Safety85]

C'est bon j'ai réussi à enlever les fusions des cellules et je peux donc appliquer la macro en l'état.

Merci quand même à ceux qui auront regarder.

Safety85