Copier / coller des lignes d'une feuille Excel à une autre

Bonjour à tous, c'est mon premier post sur ce forum donc je vais essayer de faire les choses biens.

Je sais que ce sujet à déjà été abordé sur ce forum et sur d'autre mais je n'ai pas réussit à adapter ce que j'ai vu sur ma macro.

Donc je dispose d'un fichier excel de 7260 produit qui ont plusieurs colonne de paramètres (de A à AH) dont les catégories. Je dois donc faire une macro en vba qui va copier tous les enregistrements qui correspondent aux produits qui ont "Santé" dans leur catégorie. Une fois copié, je dois coller ces enregistrements dans une feuille qui doit se créer toute seule.

Au stade où en est mon code, il ne me donne pas d'erreur mais refuse de rentrer dans la boucle if.

Je vous remercie d'avance pour votre aide

Private Sub btn_Click()

Sheets.Add.Name = "feuille_resultat"

Dim cpt As Integer

cpt = 1

For i = 2 To txtLigne.Text

If Cells(i, 4).Value Like "*Santé*" Then

Worksheets("csv-produit-fr").Range(Cells(A, i), Cells(AH, i)).Copy

Sheets("feuille_resultat").Select

ActiveSheet.Paste

Application.CutCopyMode = False

End If

Next

End Sub

Bonjour,

j'ai trouvé la reponse sur un autre post je vous met toujours ce que j'ai fais au cas ou.

Private Sub btn_Click()
Sheets.Add.Name = "feuille_resultat"
Dim cpt As Integer
cpt = 1
With Workbooks("gaya_style_beauté(2).xlsm")
        .Worksheets("csv-produits-fr").Cells(1, 1).EntireRow.Copy
        .Worksheets("feuille_resultat").Cells(1, 1).EntireRow.Select
        ActiveSheet.Paste
End With
For i = 2 To txtLigne.Text
    If Worksheets("csv-produits-fr").Cells(i, 4).Value Like "*santé*" Then
        Worksheets("csv-produits-fr").Cells(i, 1).EntireRow.Copy
        Sheets("feuille_resultat").Cells(cpt, 1).EntireRow.Select
        ActiveSheet.Paste
        cpt = cpt + 1
    End If
Next
End Sub