Sub Macro1()
Dim ind As Byte 'déclare la variable ind (INDex)
Dim x As Byte 'déclare la variable x
ind = ActiveSheet.Index 'définit la variable ind
For x = ind To Sheets.Count 'boucle de l'onglet en cours au dernier onglet du classseur
'ton code
Next x 'prochain onglet de la boucle
End Sub