Salut Stan,
dans le ruban, pas capable...
Voici une solution VBA pour laquelle tu devrais réserver un endroit fixe sur chaque feuille pour accéder à tes groupes.
Ici, c'est sur la ligne 1.
Premier jet à tester!
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
'
Dim tTab, iCol%, iSheet%, sCol$, sItem$
'
With Sh
iCol = .Cells(1, Columns.Count).End(xlToLeft).Column
sCol = Split(Columns(iCol).Address(ColumnAbsolute:=False), ":")(1)
If Not Intersect(Target, .[A1]) Is Nothing Then
.Cells.Validation.Delete
Target.Validation.Add _
Type:=xlValidateList, _
Formula1:="Groupe 1,Groupe 2,Groupe 3"
End If
If Not Intersect(Target, .Range("B1:" & Chr(64 + iCol) & 1)) Is Nothing Then
If Target <> "" Then
sItem = .[A1]
iSheet = Target.Value
tTab = .Range("B1").Resize(1, iCol - 1).Value
For Each sSh In ActiveWorkbook.Sheets
sSh.Visible = True
Next
For x = 1 To Sheets.Count
Sheets(x).Visible = IIf(x >= CInt(tTab(1, 1)) And x <= CInt(tTab(1, UBound(tTab, 2))), True, False)
Next
Sheets(iSheet).Activate
Sheets(iSheet).[A1] = sItem
Sheets(iSheet).[A1].Resize(1, .Cells(1, Columns.Count).End(xlToLeft).Column).Borders.LineStyle = xlContinuous
Sheets(iSheet).[B2].Select
End If
End If
End With
'
End Sub
A+