probleme de copier/coller de zones multiples

[rach85]

salut a tous,
jé fé une macros sous vba ki test les les plages fusionnées puis selectionne des lignes selon un critere. mon macro sélectionne seulement la derniere zone (je vx selectionner toutes les zones ki correspond au critere )
merci d avance.

puis copier ces zones vers une autre feuille.

Sub selectfusionnee()
Sheets("Rach Test").Activate
'selection des cellules fusionnées
Dim cell As Range
Dim mg, k, l, j
'Boucle sur les cellules utilisées dans la feuille
For Each cell In Sheets("Rach Test").UsedRange.Cells
    'Si la cellule est fusionnée
    'Cherche l'adresse de la plage fusionnée
    If cell.MergeCells Then
    mg = cell.MergeArea.Address
    'cherche les lignes associées à la plage fusionnée
    'selectionner les plages associes au lignes fusionnées dont au moins une cellule de colonne 5 <>""
    k = Split(mg, ":")
    l = Split(k(0), "$")
    j = Split(k(1), "$")
      
    For i = l(2) To j(2)
    If Cells(i, 5).Value <> "" Then
    Rows(i).Select
    Selection.Copy
    Sheets(2).Activate
    ActiveSheet.Paste
    End If
    Next
    End If

Next cell

End Sub

 

[rach85]

Re : probleme de copier/coller de zones multiples

j ai essayé ca:

Union(Cells(i, 1), Cells(i, 1)).EntireRow.Select

mais il donne le meme resultat 🙁
de l'aide svp