Vbs pour lancer des macros automatiquement

BONJOUR à tous

Sub Macro()
Range("H20") = "services = " & Application.WorksheetFunction.CountIf(Range("C2:C48"), "TOTO") & " fois"
End Sub

Sub Macro1()
Range("H29") = "services = " & Application.WorksheetFunction.CountIf(Range("C2:C48"), "TUTU") & " fois"
End Sub

Ces macros s'exécutent correctement en les appelant une par une (executer macro..)
si je les passe en vbs avec call macro et call macro1 excel se plante !
Comment écrire la vbs ?

idem se je regroupe ces 2 macros en une seule macro
MERCI infiniment