affecter 2 macros à 1 bouton

Sub Archiver_Renommer()
    Archivage
    renome
End Sub

[COLOR=blue]Sub[/COLOR] Archivage()
[COLOR=blue]Dim[/COLOR] Cible [COLOR=blue]As String[/COLOR]
Application.ScreenUpdating = 0
Cible = "Historique " & ActiveSheet.Range("B4")
ActiveSheet.Range("C9:C41").Copy
[COLOR=blue]With[/COLOR] Sheets(Cible).Range("C9:C41")
    .PasteSpecial Paste:=xlPasteValues
    .Interior.ColorIndex = xlNone
    .Borders.LineStyle = xlNone
    .EntireColumn.Insert
    .ColumnWidth = 12
[COLOR=blue]End With[/COLOR]
[COLOR=blue]With[/COLOR] ActiveSheet
    .Range("C9:C41").ClearContents
    .Range("C9").Select [COLOR=#008000]' pas indispensable[/COLOR]
[COLOR=blue]End With[/COLOR]
MsgBox "Exportation terminée"[COLOR=green] ' pas indispensable[/COLOR]
Application.ScreenUpdating = 1 [COLOR=#008000]' ne pas oublier de réactiver l'écran[/COLOR]
[COLOR=blue]End Sub[/COLOR]

[COLOR=blue]Sub[/COLOR] Archivage()
[COLOR=blue]Dim[/COLOR] Cible [COLOR=blue]As String[/COLOR]
[COLOR=blue]Dim[/COLOR] Col [COLOR=blue]As Long[/COLOR]
Cible = "Historique " & Range("B4")
[COLOR=blue]With[/COLOR] Sheets(Cible)
   [COLOR=green]'Trouver la première colonne vide en ligne 9[/COLOR]
    Col = .Cells(9, Application.Columns.Count).End(xlToLeft).Column + 1
   [COLOR=green]'Si la colonne est avant la D alors on prend la D[/COLOR]
    [COLOR=blue]If[/COLOR] Col < 4 [COLOR=blue]Then[/COLOR] Col = 4
   [COLOR=green]'On met les valeurs dans la colonne trouvée[/COLOR]
    .Range(.Cells(9, Col), .Cells(41, Col)) = Range("C9:C41").Value
[COLOR=blue]End With[/COLOR]
Range("C9:C41").ClearContents
[COLOR=blue]End Sub[/COLOR]