Sub trifeuilles()
x = 1
num = CInt(Replace(Sheets(1).Name, "NOTE", ""))
While x < Sheets.Count + 1
For n = x To Sheets.Count
If CInt(Replace(Sheets(n).Name, "NOTE", "")) > num Then
num = CInt(Replace(Sheets(n).Name, "NOTE", ""))
End If
Next
Sheets("NOTE" & num).Move before:=Sheets(1)
x = x + 1
num = 0
Wend
End Sub