Figer un onglet

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
On Error GoTo fin
Feuil1.Move before:=ActiveSheet
Exit Sub
fin:
Feuil1.Move before:=Sheets('Feuil2')
End Sub

Cliquez pour agrandir...

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
If ActiveSheet.Name = 'Feuil1' Then Exit Sub
If ActiveSheet.Index = 2 And Feuil1.Index = 1 Then Exit Sub

Application.EnableEvents = False
Feuil1.Move before:=ActiveSheet

If Feuil1.Index = 1 Then
Application.EnableEvents = True
Exit Sub
End If

If ActiveSheet.Index DIFFÉRENT_DE 1 Then
ActiveSheet.Next.Select
Application.EnableEvents = True
End If

End Sub

Cliquez pour agrandir...

Sub Macro1()
Application.EnableEvents = True
End Sub

Cliquez pour agrandir...