lier deux sub

[PHILIP]

Bonsoir à tous

débutant en vba j'ai deux procédures sub que je voudrais executer l'une aprés l'autre autrement dis comment faire pour n'en faire qu'une
merci pour votre aide

Sub amelioration()

Range("A:A,C:C,D,E:E,M:M,S:AK").Delete Shift:=xlToLeft
Columns("E:E").Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
Range("E1").FormulaR1C1 = "=INT(RC[1]/1000)"
Range("E1").AutoFill Destination:=Range("E1:E10000"), Type:=xlFillDefault
Columns("A:C").Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
Rows("1:5").Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
End Sub

Sub ajoutSh()
Dim ListSh() As Variant
'On inscrit les noms dans un tableau
ListSh = Array("dhl24", "dhl48", "joy24", "joy48", "joy72", "mon24", "mon48", "mon72", "mon96", "tnt", "tof", _
"Autriche", "Allemagne", "Italie", "Suisse", "CZ", "DK", "PL")
'on boucle du plus petit indice au plus grand indice du tableau
For i = LBound(ListSh) To UBound(ListSh)
'on cré la feuille après la dernière feuille existante
Sheets.Add after:=Sheets(Sheets.Count)
'on nomme la nouvelle feuille
ActiveSheet.Name = ListSh(i)
Next
End Sub

 

[piga25]

Re : lier deux sub

Bonjour,

Pourquoi pas comme ceci :

Sub macro1()
amelioration
ajoutSh
End Sub