Option Explicit
Sub Archiver()
Dim i As Long
Dim SOURCE As Workbook, DESTINATION As Workbook
Application.ScreenUpdating = False
'emplacement et nom du fichier adapter
Set DESTINATION = Application.Workbooks.Open("C:\Users\DoubleZero\Downloads\max 35-Archives.xlsm")
'attention : on part du principe "même format de tableau", la ligne 3 étant la ligne de titres, on efface tout à partir de la ligne 4
Range(Range("a4"), Range("m4").End(xlDown)).Clear
Set SOURCE = ThisWorkbook
SOURCE.Activate
'nom d'onglet destinataire adapter
For i = Cells(Rows.Count, "a").End(xlUp).Row To 4 Step -1
If Range("a" & i).Offset(, 12) = "oui" Then Rows(i).Copy DESTINATION.Sheets("commandes de vitrage").Range("a65536").End(xlUp)(2)
Next i
DESTINATION.Sheets("commandes de vitrage").Shapes("Bouton 1").Delete
DESTINATION.Close True
Application.ScreenUpdating = True
End Sub