La dernière feuille modifiée toujours en première position

Suite à des échanges fructueux avec un lecteur de mon site, voici une autre astuce en VBA assez sympathique.

L'objectif est de déplacer la feuille qui vient d'être modifiée pour l'avoir toujours en première position.

Le code de la procédure événementielle à ajouter à ThisWorkbook (voir vidéo) est le suivant :

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Sh.Name <> Worksheets(1).Name Then
Sh.Move Before:=Sheets(1)
End If
End Sub

Voici la procédure en vidéo

A bientôt.

Gaetan Mourmant