Bonjour,

Je coince sur une fonction toute simple
Je souhaite déplacer une plage de lignes en fin de tableau sans toucher au tri complexe existant.
actuellement je copie colle les lignes une à une, c'est très long !

J'aissaie de filtrer copier coller supprimer meis ça ne marche pas.
en fait je n'arrive pas à coller plage, j'ai une erreur 1004 car le format n'est pas compatible

ActiveSheet.Paste
merci de votre aide
Denis

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
 
 Sub Macro2()
 Dim Ma_Plage
 Dim Plage As Range
 
'recherche derniere ligne
     Cells(65000, 1).Select
     Selection.End(xlUp).Select:   der_lig_trt = Selection.Row
 
' mise en place d'un filtre
    Range("A1").Select
    Selection.AutoFilter
 
'filtrage
Selection.AutoFilter Field:=7, Criteria1:="QUANTITE"
Set Plage = Selection.SpecialCells(xlCellTypeVisible)
If Not Plage Is Nothing Then
Plage.Copy
Range("A" & der_lig_trt + 1).Select
ActiveSheet.Paste
Plage.EntireRow.Delete
Ma_Plage = ""
'Plage = ""
    ActiveSheet.ShowAllData
End If
End Sub