Copier/coller sous condition

Bonjour,

je dois mettre en place une macro qui me premettrait de réaliser un copier/coller de lignes sous condition de la valeur d'une cellule entre 2 fichiers.

Je m'explique:

Dans un fichier "Test" , je dois récupérer les lignes de l'onglet "Feuil1" dont la cellule C contient 23.

Ces lignes doivent ensuite être coller dans l'onglet "Feuil2" du fichier "Data" à la suite des lignes déjà existantes.

Pouvez-vous m'aider pour réaliser cette macro?

Merci d'avance,

bonjour,

à tester

Sub vasy()
    Set wsi = Workbooks("test.xlsx").Worksheets("feuil1")
    Set wso = Workbooks("Data.xlsx").Worksheets("feuil2")
    dlo = wso.Range("C" & Rows.Count).End(xlUp).Row + 1
    i = 1
    With wsi
        While .Range("C" & i) <> ""
            If .Range("C" & i) = 23 Then
                .Rows(i).Copy wso.Rows(dlo)
                dlo = dlo + 1
            End If
            i = i + 1
        Wend
    End With
    Set wsi = Nothing
    Set wso = Nothing
End Sub

Bonjour,

Merci pour votre aide.

Ca fonctionne mais ce n'est pas adapté à mon document.

Est ce qu'il est possible d'effectuer la manipulation suivante:

condition : si cellule fusionnée

Action attendue:

• copier la valeur de la cellule fusionnée
• Dé-fusionner les cellules
• coller dans les cellules anciennement fusionnées.

A savoir que ces cellules fusionnées peuvent être entourées d'autres cellules non fusionnées dans lesquelles aucune action ne doit être réalisée.

Merci pour votre aide,

Cordialement,

Noé