Choisir onglet d'ouverture avec Custom UI Editor

<customUI xmlns="Error">
<ribbon startFromScratch="false">
<qat>
<sharedControls>
<button idMso="FileSaveAs" />
<button idMso="FileClose" />
<button idMso="FilePrint" />
</sharedControls>
</qat>
<tabs>
<tab id = "Planning" label="Planning" insertAfterMso="TabDeveloper" >
<group id="Groupe1" label="Vacances Scolaires">
<button id="Code_A2" label="Zone A" onAction="A2" screentip="Congés scolaires de la zone A" size="normal" image="Couleur_38" />
<button id="Code_A3" label="Zone B" onAction="A3" screentip="Congés scolaires de la zone B" size="normal" image="Couleur_39" />
<button id="Code_A4" label="Zone C" onAction="A4" screentip="Congés scolaires de la zone C" size="normal" image="Couleur_18" />
</group>
　
<group id="Groupe2" label="Légal">
<button id="Code_A14" label="Férié / WE" onAction="A14" screentip="Jour férié ou week-end" size="normal" image="Couleur_15" />
<button id="Code_A15" label="Temps partiel" onAction="A15" screentip="Temps partiel" size="normal" image="Couleur_16" />
<button id="Code_A16" label="Délégation" onAction="A16" screentip="Délégation" size="normal" image="Couleur_56" />
</group>

</tab>
<tab idMso="TabReview" label="Review" visible="true" />
</tabs>
</ribbon>
</customUI>

Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
           'Tempo de x millisecondes
            
Sub aller_COMPLEMENT_XL2007()
'Stop
'attente = 1: newHour = Hour(Now()): newMinute = Minute(Now()): newSecond = Second(Now()) + attente: waitTime = TimeSerial(newHour, newMinute, newSecond): Application.Wait waitTime
Sleep 10
SendKeys ("%m"), True
'attente = 1: newHour = Hour(Now()): newMinute = Minute(Now()): newSecond = Second(Now()) + attente: waitTime = TimeSerial(newHour, newMinute, newSecond): Application.Wait waitTime
Sleep 10
SendKeys ("2{Esc}{esc}"), True
End Sub
     
Sub aller_COMPLEMENT_XL2010()
'Stop
'attente = 1: newHour = Hour(Now()): newMinute = Minute(Now()): newSecond = Second(Now()) + attente: waitTime = TimeSerial(newHour, newMinute, newSecond): Application.Wait waitTime
Sleep 10
SendKeys ("%y"), True
'attente = 1: newHour = Hour(Now()): newMinute = Minute(Now()): newSecond = Second(Now()) + attente: waitTime = TimeSerial(newHour, newMinute, newSecond): Application.Wait waitTime
Sleep 10
SendKeys ("223{Esc}{esc}"), True
End Sub