Ajouter une macro supplementaire a un bouton

Sub EnrFactureClient()
Dim Ligne As Long
With Sheets("Historique bon de commandes")
Ligne = .Cells(.Rows.Count, 1).End(xlUp).Offset(1).Row
.Cells(Ligne, 1) = Range("FAC_CLI")
.Cells(Ligne, 2) = Range("FAC_DATE")
.Cells(Ligne, 3) = Range("FAC_TOTAL")
.Cells(Ligne, 4) = Range("FAC_NUM")
.Cells(Ligne, 5) = Range("FAC_MODE")
End With
End Sub

Cliquez pour agrandir...

Sub Enregistrement()
ActiveWorkbook.Save
End Sub

Cliquez pour agrandir...