lancement macros

Bonjour Stef51

Le mieux est de créer une macro qui les exécute l'une après l'autre :

Sub Enchaînement ()
macro1
macro2
macro3
macro4
macro5
End Sub


Cordialement

CBernardT

salut
Une autre solution

a la fin de la macro un avant end sub
place
Call macro 2

puis dans la macro 2 a la fin
Call macro 3

etc

crdlmt
Ðidier

Bonsoir CBernardT ,Didier, le forum
cela fonctionne avec call par contre cela bloque au milieu juste avant "sub ranger" à cause de "private..."
Separemment cela marche
Avez vous une idee ?
Merci

Sub colonnes()
Range("E:E,F:F,h:h,i:i,j:j,n:n,r:r").Select
Range("r1").Activate
Selection.Delete Shift:=xlToLeft
Columns("A:B").Select
Selection.Insert Shift:=xlToRight
Rows("1:1").Select
Selection.Insert Shift:=xlDown
Call ranger
End Sub

Private lig As Long, lig2 As Long
Sub ranger()

Dim cesure As Byte
Dim numero As String, client As String
'séparation numero et nom client
client = Cells(lig, 5)
cesure = Application.Search("-", client)
numero = Left(client, cesure - 1)
client = Right(client, Len(client) - cesure)

Range(Cells(lig + 5, 1), Cells(lig2 - 2, 1)) = numero
Range(Cells(lig + 5, 2), Cells(lig2 - 2, 2)) = client
Call affecter
End Sub
Sub affecter()