Copier - Coller si cellule identique

Bonjour,

J'essaye de faire une macro afin de copier et collé une partie de ligne si les cellules de la première colonne sont identiques.

J'ai plusieurs colonne dans la première j'ai des codes articles, dans les suivante j'ai des essais.

Si les code articles sont identiques, je souhaite recopier les colonnes suivante ("essais").

Avec un fichier exemple (pour confidentialité) cela sera surement plus simple.

Quelqu'un peux m'aider?

J'avais fais une macro mais ne fonctionnant pas je l'ai supprimée.

Bonjour,

tu ne nous mets qu'une seule feuille sans aucune indication. un minimum serait un exemple de ce que tu as au départ, de ce que tu veux obtenir comme résultat et de nous expliquer comment on passe de l'un à l'autre.

Oui pardon c'est vrai que mon fichier n'était pas très claire.

J'ai apporté quelques petite modification afin de mieux comprendre, dites moi si c'est plus clair.

Bonjour,

une proposition

Sub aargh()
    With Sheets("avant")
        art = ""
        dl = .Cells(Rows.Count, 2).End(xlUp).Row
        For i = 6 To dl + 1
            If .Cells(i, 2) <> art Then
                If art <> "" Then
                    If i > fl + 1 Then .Range("B" & fl & ":G" & fl).Copy .Range("B" & fl + 1 & ":G" & i - 1)
                End If
                fl = i
                art = .Cells(i, 2)
            End If
        Next i
    End With
End Sub

Je vous remercie.