Copie entre différentes feuilles - VBA

Question

Bonjour à tous,

Je reviens sur un sujet que j'avais crée auparavant mais j'ai totalement changé la façon de voir les choses.

Sub nom_feuille()

Dim nom_feuille As String
Dim WS_Count As Integer

For i = 4 To WS_Count

nom_feuille = Range("J" & i).Value

If Range("D2" & i).Value Like "*nom_feuille*" Then

Sheets("ALL-TP").Range("A" & i & ":I" & i).Copy
Worksheets(nom_feuille).Select
b = Worksheets(nom_feuille).Cells(Rows.Count, 2).End(xlUp).Row

    Worksheets(nom_feuille).Cells(b + 1, 1).Select
    ActiveSheet.Paste
    Worksheets("ALL-TP").Activate

End If

Next i

End Sub

Dans ma colonne "D", on retrouve des noms d'entreprises qui correspondent aux noms de mes feuilles de classeur.

Pour un souci de code, j'ai noté le noms de toutes les entreprises dans la colonne J pour aller les chercher plus rapidement.

Ici j'aimerai que la macro fasse quelque chose du genre :

Si dans la colonne D on retrouve la même valeur que dans la colonne J

Alors, on colle les lignes entières dans la feuille qui porte le même nom que les valeurs de la colonne D.

merci d'avance

Noé

Dan · Answer

Sans données confidentielles Cordialement...