Déplacement la ligne du matériel réformer par boucle

Bonjour à tous,

Je ne suis pas très bon pour les boucles VBA.

Hier j'ai réussi à en créer une pour copier des données pour archivage, mais aujourd'hui, je ne sais pas comment faire pour :

Tester la colonne A tant qu'elle contient quelque chose

Si rencontre REFORME en colonne N

Sélectionner la ligne

Couper

Aller sur la feuille "Materiel_reforme"

Chercher la dernière cellule vide en colonne A

Coller à la suite

Revenir sur la feuille "Inventaires-revision

Supprimer la ligne que nous venons de vider

Continuer la boucle jusqu'à A3

Votre aide me serait précieuse pour terminer mon fichier de gestion du matériel.

Petit extrait joint.

Merci à vous

@+

Robert

Bonjour, proposition :

Option Explicit

Sub Macro1()
    Dim nL1 As Long, nL2 As Long, i As Long
    Dim ws1 As Worksheet, ws2 As Worksheet

    Set ws1 = Sheets("Inventaires_revision")
    Set ws2 = Sheets("Materiel_reforme")
    nL1 = ws1.Cells(Rows.Count, 1).End(xlUp).Row

    For i = 1 To nL1
        If ws1.Cells(i, 1) <> "" And ws1.Cells(i, 14) = "REFORME" Then
            nL2 = ws2.Cells(Rows.Count, 1).End(xlUp).Row
            ws1.Range("A" & i & ":O" & i).Copy Destination:=ws2.Range("A" & nL2 + 1)
            ws1.Rows(i & ":" & i).Select
            Selection.Delete Shift:=xlUp
        End If
    Next i
End Sub

Bonjour,

Merci beaucoup, tout fonctionne parfaitement bien.

Heureusement que nous avons des pros pour nous aider

@+

Rober

C'est gentil de ta part, mais avec mon clavier où il manque le "B", le "K" et le "è", je n'ai rien d'un pro. Bonnes réformes.