Salut Fabrice,
quelque chose comme ça ?
Conseil : adopter STRICTEMENT une strcture IDENTIQUE pour chaque feuille !!!
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'
If Not Intersect(Target, Range("B3:D3")) Is Nothing Then
With Worksheets("BR " & Target)
.Visible = True
.Activate
.Range("B" & .Range("B" & Rows.Count).End(xlUp).Row + 1).Select
End With
End If
'
End Sub
Les feuilles 'BR' sont cachées à l'ouverture et activées selon le clic en 'Accueil'.
A+