Copier ligne avec condition

Bonjour le Forum!

Je chercher à copier une ligne (A:P) de ma feuille "Résultats" avec la condition suivante :

Si le texte de la cellule en colonne A est identique au nom d'un onglet alors je copie la ligne dans cet onglet.

Je n'arrive pas à parcourir les lignes de la colonne A de ma feuille "Résultats" et en même temps parcourir le nom des onglets pour voir s'il y a une correspondance...

Voici mon ébauche de code...

Sub AjoutData()

    Dim i As Long
    Dim k As Long

    Application.ScreenUpdating = False

    'Parcours des feuilles
    For k = 4 To Worksheets.Count
        'Dernière cellule non vide de la colonne A de la feuille Résultats
        dl = Sheets("Résultats").Range("A" & Rows.Count).End(xlUp).Row
        'Parcours des lignes
        For i = 2 To dl
            'Si la cellule est identique au nom d'un onglet
            If Cells(i, 1).Value = Worksheets(k).Name Then
                'Copie de la ligne
                Range(Cells(i, 1), Cells(i, 16)).Select
                Selection.Copy
                'Colle dans la première cellule vide de la colonne A de la feuille dont le nom correspond
                Worksheets(k).Range("A" & Rows.Count).End(xlUp).Select
                Selection.Paste
            End If
        Next
    Next

End Sub

Merci par avance pour votre aide!!

BZH83

Bonjour BZH83, le forum,

Un exemple ci-joint....pour le principe

Cordialement,

Salut xorsankukai!

Merci beaucoup pour la rapidité de ta réponse!!

C'est parfait!!

Je vais pouvoir bien avancer!!

Bonne journée!

BZH83

Re,

Petite modif....on efface les onglets A,B,C avant le transfert des données de la feuille Résultats.

Cordialement,

Salut le forum!

Voici donc mon code complet qui permet de créer des onglets et copier les données dans chaque onglet correspondant! Il faut encore que je rajoute une conditions pour les doublons mais j'arrive au bout!

Merci à tous ceux du forum qui m'ont aidé et qui m'ont permis de compléter cette macro

BZH83