VBA - Copier ligne si condition - Incomplet

Bonjour,

Je cherche à faire un fichier qui permet de copier une ligne de la feuille "Prospection" à la feuille "Commandes" si il est indiqué dans la colonne T "effectuée".

Avec le script actuel, celà fonctionne jusque quand qu'il est y dans la colonne T "en attente", et le script s'arrête là, il va pas chercher plus loin dans le tableau. Comment résoudre ce problème ?

Voici le script :

Private Sub Workbook_Open()

Sheets("Commandes").Activate
Cells.ClearContents

Dim strSearch
Dim rg As Range, rgF As Range
Dim i As Integer

Application.ScreenUpdating = False

strSearch = ("effectuée")

'On défini ici la plage de cellules contenant les données
' comme étant la région autour de la cellule 1 (A1)
Set rg = Sheets("Prospection").Cells("1").CurrentRegion

'On boucle sur chaque ligne de la plate
For i = 1 To rg.Rows.Count
    'On cherche dans cette ligne la valeur à trouver
    Set rgF = rg.Rows(i).Find(strSearch, , xlValues, xlPart)

    'Si on la trouve alors rgF n'est pas vide, on copie dans notre onglet Résultats
    If Not rgF Is Nothing Then
        rg.Rows(i).Copy Sheets("Commandes").Range("A6000").End(xlUp).Offset(1, 0)
        Set rgF = Nothing
    End If
Next i

    Application.ScreenUpdating = True

End Sub

Je ne sais pas si j'ai été clair :/

Merci d'avance,

Max

Bonjour, je veux bien le fichier pour manipuler et voir qu'est-ce qui peux buger...

Voilà le fichier,

Merci beaucoup !

La macro est fonctionnelle

Bizarre, ça ne fonctionne pas au boulot, seulement pour les 24 premières lignes :/

C'est étrange en effet. Dans le fichier présenté ici il y a 33 effectuée de part et d'autres donc difficile de remettre en cause quoi que ce soit pour trouver l'erreur

SALUT

essai ça

il fonctionne avec cetTe presentation , autre faut l'adapter

MERCI

Merci, je viens d'essayer, et toujours le même problème, au lieu d'avoir un résultat de 38 lignes copiées, j'en ai que une au final. Je joins le fichier.

J'ai l'impression que ça dépend de la charge du tableau,

Merci beaucoup pour le temps pris