Sub b()
Dim strPath$, Fichier$, f As Worksheet, t, NumFact
NumFact = [codes!A2]
'export de la commande en PDF
strPath = ThisWorkbook.Path & "\"
Fichier = "Commande-" & NumFact & "-" & Format(Now(), "mmmyy") & ".pdf"
Set f = Sheets("commande")
f.Range("A1:G56").ExportAsFixedFormat 0, strPath & Fichier, 1
'on exporte la commande validée dans le classeur mensuel
'dans cette ligne,mettre les adresses des "bonnes" cellules
t = Array(f.[F8].Value2, f.[E2].Text, f.[D19].Text, f.[E4].Text, f.[D11].Text)
'remplacer si besoin 2 fichier.xlsm par le nom du vrai classeur (dans les duex lignes ci-dessous
'ce classeur doit être ouvert
Workbooks("2 fichier.xlsm").Sheets("récap").Cells(Rows.Count, 1).End(xlUp)(2).Resize(, 5).Value = t
Workbooks("2 fichier.xlsm").Close True
'RAZ de la commande
'vérfier que ce sont les bonnes adresses des cellules à effacer
f.Range("E4,B11:B13,A11,D11,D19,A19,A22,A25:G50") = Empty
'ici on incrémente le compteur
Sheets("codes").[A2] = Sheets("codes").[A2] + 1
End Sub