Option Explicit
Public WithEvents z As Application
Private Sub z_WorkbookOpen(ByVal Wb As Workbook)
If Wb.Name = "[COLOR="Blue"]DieseArbeitsmappe[/COLOR][B][COLOR="Red"].xls[/COLOR][/B]" Then
Call formule_format
Call Eff_Perf
Call Chiffre
Call couleur
Call Mise_en_Forme
Call Objectif_Ressource
Call GPH
Call Objectif_Eff
Call Lettre_gras
Call Barres
Call Zoom
End If
End Sub