Excel VBA : Boucle couper/coller [Résolu]

Bonjour,
une petite précision ?
qu'y-a-t-il exactement dans la cellule Ax
A+

Dans un premier temps essaye avec ...

Sub Transfert()
Dim Lig As Long, LigCopie As Long, DerLig As Long
    LigCopie = 2: DerLig = Range("A65536").End(xlUp).Row
    For Lig = 1 To DerLig
        If Cells(Lig, 1) Like "Non*" Then
            Rows(Lig).Copy Sheets("Feuil2").Rows(LigCopie)
            Rows(Lig).Delete
            LigCopie = LigCopie + 1
            Lig = Lig - 1
        End If
    Next Lig
End Sub

A coller dans le module de la feuille ou ont supprime les lignes et adapter le nom Feuil2 au nom de la feuille où copier.
A+

Bonsoir Lermite222 :)
Dans la colonne A, un certain nombre de cellules sont remplies avec "Lancé" ou "Non Lancé"
Au final, Je souhaite basculer tout les non lancés sur l'onglet N°2.

Merci pour ta proposition, je vais essayer dès demain matin.

Bonne soirée

Bonjour,

Je viens de tester cette macro en la modifiant très légèrement car je centralise ces utilitaires sur un fichier spécifique. Voici ce que ça donne :

Sub Transfert()
' ouverture du fichier des manquants
Workbooks.Open Filename:= "D:Liste manquant.xls"

' ajout d'un onglet pour stockage des action non lancées
Sheets.Add After:=Sheets(Sheets.Count)

Dim Lig As Long, LigCopie As Long, DerLig As Long

' activation de la feuille 1
Sheets("Liste manquants").Select
LigCopie = 2: DerLig = Range("A65536").End(xlUp).Row
For Lig = 1 To DerLig
If Cells(Lig, 2) Like "Non*" Then
Rows(Lig).Copy Sheets("Feuil1").Rows(LigCopie)

' activation de la feuille 1
Sheets("Liste manquants").Select
Rows(Lig).Delete
LigCopie = LigCopie + 1
Lig = Lig - 1
End If
Next Lig
ActiveWorkbook.Save
End Sub

Et ca marche parfaitement !
Encore merci, une nouvelle fois