Copie conditionnelle de ligne entières vers autre onglet

Bonjour,

J'ai actuellement une feuille ("BFESSFE") contenant une base de données (5000Lx52C) je souhaiterais insérer une feuille ("Traitement ACSS") dans laquelle je copier à la suite toutes les lignes (entières) contenant "'ACS" dans la colonne J

Sub ACSS()

Dim i As Integer

Dim j As Integer

Dim onglet As Worksheet

Set onglet = Sheets.Add(After:=Sheets(Sheets.Count))

onglet.Name = "Traitement ACSS"

j = 1

For i = 1 To 10000

If Cells(i, 10) = "'ACS" Then

Sheets("BFESSFE").Select

ActiveSheet.UsedRange.Rows(i).EntireRow.Select

Selection.Copy

Sheets("Traitement ACSS").Select

ActiveSheet.UsedRange.Rows(j).EntireRow.Select

Selection.Paste

j = j + 1

Else

End If

Next i

End Sub

La feuille se crée comme il faut, cependant la copie ne fonctionne pas, quelqu'un aurait-il une solution?

Merci d'avance

Rapha

Pour information:

i est le numero de ligne d'envoi (onglet BFESSFE)

j est le numero de la ligne de réception (onglet Traitement ACSS)

Bonjour,

Je pense que le plus simple est l'utilisation d'un filtre élaboré....

C'est quasi immédiat.

Avec un fichier exemple, ce serait plus simple (fichier exempt de données confidentielles, mais au plus proche de ton fichier réel)

@ te relire (avec ce fichier)

Bon courage