Bonjour,

Je tourne un peu en rond alors je viens chercher un peu d'aide.

J'ai mon onglet"VE" ou j'ai toutes mes données que je voudrai copier en "Feuil5" selon condition (la valeur recherché est "ESP" dans la colonne 50.

Si en "VE" (les données commencent en ligne 3 (ligne1= totaux et ligne2 =titres)) la cellule de la colonne 50 à la valeur "ESP" alors copie la ligne de la colonne 1 à 5 sur la feuille "Feuil5"

Le tableau en "VE" est saisi toutes les semaines et comporte pour le moment 326 lignes.

Je voudrai une copie (sans effacement) des 5 premières colonnes de "VE" dans "Feuil5" au fur et à mesure de la saisie, et surtout sans doublon.

J'ai ce début de code mais je bloque:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Sub TriESP()
 
Sheets("VE").Select
FinalRow = Cells(Rows.Count, 1).End(xlUp).Row
 
For x = 1 To FinalRow
 
    ThisValue = Cells(x, 50).Value
    If ThisValue = "ESP" Then
        Cells(x, 1).Resize(1, 5).Copy
        Sheets("Feuil5").Select
        NextRow = Cells(Rows.Count, 1).End(x1Up).Row + 1
        Cells(NextRow, 1).Select
        ActiveSheet.Paste
        Sheets("VE").Select
     End If
Next x
 
End Sub
Merci pour votre aide