Bonjour à tous!

Je suis en train de créer une petite macro toute simple qui permet de copier une ligne de mon tableau excel sur une autre feuille en fonction de la valeur d'une cellule et supprime la dite ligne sur la feuille initiale.

Voici mon code:

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
20
21
22
23
24
25
 
Sub test()
 
Dim Nligne As Long
Dim Nligne2 As Long
 
Sheets("Liste VMs").Select
 
For Nligne = 3 To Cells(Rows.Count, 1).End(xlUp).Row
    If Cells(Nligne, 1).Value = "A désengager" Then
        Rows(Nligne).Select
        Selection.Cut
        Sheets("VMs désengagées").Select
 
        For Nligne2 = 1 To Cells(Rows.Count, 1).End(xlUp).Row
            If IsEmpty(Cells(Nligne2, 1)) Then
                Rows(Nligne2).Select
                ActiveSheet.Paste
                Sheets("Liste VMs").Select
                Selection.Delete Shift:=xlUp
            End If
        Next Nligne2
    End If
Next Nligne
End Sub
Donc la macro fonctionne pour la première boucle, mon problème arrive à la deuxième :
elle effectue bien la copie de ma ligne sur la premiere ligne de la deuxième feuille mais ensuite il détecte que la première ligne n'est pas vide mais ne passe pas à la seconde et sort directement de la boucle.
Je ne comprends pas pourquoi.

Si quelqu'un peut m'éclairer?
Merci