Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Dim a, i%
a = Array("Feuil1", "Feuil2", "Feuil3") 'liste des onglets figés, à adapter
If IsNumeric(Application.Match(Sh.Name, a, 0)) Then Exit Sub
Application.EnableEvents = False 'désactive les évènements
On Error Resume Next 'si un onglet n'existe pas
For i = 0 To UBound(a)
Sheets(a(i)).Move Before:=Sh
Next
Sh.Activate
Application.EnableEvents = True 'réactive les évènements
End Sub