Couper coller lignes

Bonjour à tous,

Je reviens vers vous au sujet d’une macro que je suis entrain de développer.

Le principe visé est le suivant :

J’aimerais développer une autre macro qui me permettra de couper toutes les lignes dont la valeur à la colonne O est « AM » et les coller dans la feuille « AM » à la dernière ligne.

Je vous remercie d’avance.

Bonjour amayas, le forum,

Un essai....

Sub copieAM()
 Dim dl1 As Long, dl2 As Long

  Application.ScreenUpdating = False
  Application.DisplayAlerts = False

   With Sheets("AM")
    dl2 = .Range("A" & Rows.Count).End(xlUp).Row + 1
   End With

   With Sheets("Feuil1")
    dl1 = .Range("A" & Rows.Count).End(xlUp).Row
    .Range("A4:Z" & dl1).AutoFilter field:=15, Criteria1:="AM"
    .Range("A5:Z" & dl1).SpecialCells(xlVisible).Copy Sheets("AM").Range("A" & dl2)
    .Range("A5:Z" & dl1).SpecialCells(xlVisible).Delete
     If .FilterMode = True Then .ShowAllData
   End With

  Application.ScreenUpdating = True
  Application.DisplayAlerts = True
End Sub

CTRL + e pour exécuter la macro...

Cordialement,

Bonjour,

Je vous remercie pour votre réponse et je m'excuse pour ma réponse tardive.

Votre code fonctionne à merveille, je vous en remercie.

Cordialement,