Archiver

Sub ARCHIVER()
    Sheets("DONNEES").Select  ' sélectionne la feuille "Donnees"
    Set ma_plage = Worksheets("DONNEES").Range("B3:I15")    'Compteur: B3 1° ligne i15 derniere ligne
    nbr = nbr + 6 + Application.WorksheetFunction.CountA(ma_plage)    ' rajout des 6° lignes commence l'opération à la 8 émé ligne ?
    With ma_plage 'Ne travailler que sur la plage de donnée
    For i = 1 To ma_plage.Rows.Count 'Balayer toutes les lignes
        'Si la 7ème colonne de la i ligne des la plage est supérieure à 99 alors
        If .Cells(i, 7) > 99 Then
            'Archiver uniquement les valeurs
            Sheets("Archives").Range("B65536").End(xlUp)(2).Resize(, 8).Value = .Rows(i).Value
            'Nettoyer la ligne en cours
            .Rows(i).ClearContents
        End If
    Next
    End With
End Sub