Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Dim ws As Worksheet, i As Byte, j As Byte
For i = 1 To Sheets.Count
If Sheets(i).CodeName <> "Feuil" & i Then
For j = 1 To Sheets.Count
If Sheets(j).CodeName = "Feuil" & i Then
Sheets(j).Move before:=Sheets(i)
Exit For
End If
Next j
End If
Next i
End Sub