Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal R As Range)
'adapter le nom des onglets à exclure ou supprimer la ligne ci-dessous
If Sh.Name = "Accueil" Or Sh.Name = "Bilan" Then Exit Sub
'adapter la plage source
If Intersect(R, [B2:K24]) Is Nothing Then Exit Sub
'adapter le nom du formulaire
UserForm1.Show
End Sub