Cette dernière leçon du chapitre combine une constante, une boucle de bas en haut et une copie vers une autre feuille, pour déplacer automatiquement les commandes déjà traitées vers une feuille d'archive.

Sub ArchiverCommandesTraitees()
    Const STATUT_TRAITE As String = "Traité"
    Dim i As Integer
    Dim ligneArchive As Integer
    ligneArchive = 2

    For i = 10 To 2 Step -1
        If Cells(i, 4).Value = STATUT_TRAITE Then
            Worksheets("Archives").Cells(ligneArchive, 1).Value = Cells(i, 1).Value
            ligneArchive = ligneArchive + 1
            Rows(i).Delete
        End If
    Next i
End Sub

La boucle parcourt les lignes de bas en haut (comme pour le nettoyage vu plus tôt dans ce chapitre) pour supprimer sans risque, et chaque commande au statut "Traité" est d'abord copiée vers la feuille "Archives" avant d'être retirée de la feuille active.

À vous de jouer : adaptez cette macro pour copier aussi le montant de la commande (colonne C) vers la feuille Archives, en plus de la référence.