Sub ARCHIVER()
With Sheets("HISTORIQUE_AR").ListObjects(1)
If .ListRows.Count = 0 Then 'si le tableau est vide: pas meme une ligne de donnée
.ListRows.Add
End If
If .DataBodyRange(1, 1) <> "" Then 'si la première ligne est non vide
.ListRows.Add
End If
LastLine = .ListRows.Count 'dernière ligne = celle qu'on remplit
.DataBodyRange(LastLine, 1) = Sheets("AR").Range("B10").Value
.DataBodyRange(LastLine, 2) = Sheets("AR").Range("D10").Value
.DataBodyRange(LastLine, 3) = Sheets("AR").Range("A15").Value
.DataBodyRange(LastLine, 4) = Sheets("AR").Range("A19").Value
.DataBodyRange(LastLine, 5) = Sheets("AR").Range("A17").Value
.DataBodyRange(LastLine, 6) = Sheets("AR").Range("E37").Value
.DataBodyRange(LastLine, 7) = Sheets("AR").Range("E38").Value
.DataBodyRange(LastLine, 8) = Sheets("AR").Range("E39").Value
Sheets("AR").[B10,A15,A17,A19,A27:D27].ClearContents
End With
' enreg_auto Macro
ChDir "Z:\VENTE\AR COMMANDES"
ActiveWorkbook.SaveAs Filename:= _
"Z:\VENTE\AR COMMANDES\MODELE AR CIRES - RECAP.xlsm", FileFormat:= _
xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
End Sub