Creer une macro qui en excuterait 3 autres

Bonjour

une petite question sur la creation de macro

J'ai 2 macros distinctes qui fonctionnent tres bien

Ci joint le code de ces 2 macros

Sub CAP()
'
' CAP Macro

'
    'On copie les données
    Sheets("Auto").Range("A15:I15").Copy

    'On les colle sous le "Titre" en cellule A5
    'si la cellule est vide, comme toutes celles de la
    'colonne A, alors le collage se fera su la ligne
    'n°1048578, tout en bas du tableau

    Sheets("database").Range("a1").End(xlDown) _
        .Offset(1, 0).PasteSpecial Paste:=xlPasteAll, _
        Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False

    'On active la seule cellule A2 'Instruction facultative
    ActiveSheet.Range("A4").Select

    'On arrête le clignottement de la plage copiée sur la
    'feuille "AUTO"
    Application.CutCopyMode = False
    ActiveWorkbook.RefreshAll

End Sub

Sub intéret()
'
' intéret Macro
'

'
    'On copie les données
    Sheets("Auto").Range("A13:I13").Copy

    'On les colle sous le "Titre" en cellule A5
    'si la cellule est vide, comme toutes celles de la
    'colonne A, alors le collage se fera su la ligne
    'n°1048578, tout en bas du tableau

    Sheets("database").Range("a1").End(xlDown) _
        .Offset(1, 0).PasteSpecial Paste:=xlPasteAll, _
        Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False

    'On active la seule cellule A2 'Instruction facultative
    ActiveSheet.Range("A4").Select

    'On arrête le clignottement de la plage copiée sur la
    'feuille "AUTO"
    Application.CutCopyMode = False
    ActiveWorkbook.RefreshAll
'
End Sub

J'aimerais creer une macro qui executerait d'un meme coup les deux macros

est ce possible?

merci encore

Bonjour,

Oui

Sub macros()

Call CAP

Call intéret

End Sub

un gros merci

ca fonctionne