Sub derniere_feuille()
Dim a(), i%
ReDim a(1 To Sheets.Count, 1 To 2)
For i = 1 To Sheets.Count
a(i, 1) = Val(StrReverse(Sheets(i).CodeName))
a(i, 2) = Sheets(i).Name
Next
i = Application.Max(Application.Index(a, , 1))
Sheets(Application.VLookup(i, a, 2, 0)).Activate
End Sub