Ajouter une macro supplementaire a un bouton

[resolu] Ajouter une macro supplementaire a un bouton

Bonjour
Sur un bouton qui permet une extraction, Merci Hasco

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...

Je voudrais que ce même bouton ,enregistre le document soit la macro suivante

Sub Enregistrement()
ActiveWorkbook.Save
End Sub

Cliquez pour agrandir...

Faché avec le VBA et la syntaxe , j'aurais bien besoin de votre aide
..................................................................................................
Autre question
Comment declencher la macro(extraction seulement) de façon automatique , tous les 1/4 d'heure par exemple (c'est pour une autre application
Merci d'avance