Bonjour à tous,
Autre solution, adapter la macro Recap avec un tri alpha des feuilles pour faciliter la recherche du fournisseur
Sub lienRécap()
'sélection de la feuille Récap
Dim i As Worksheet
Dim f As String
Dim j As Byte
Dim n
Application.ScreenUpdating = False
For n = 3 To Sheets.Count
For j = n To Sheets.Count
If UCase(Sheets(j).Name) < UCase(Sheets(n).Name) Then
Sheets(n).Move before:=Sheets(j)
Sheets(j).Move before:=Sheets(n)
End If
Next j
Next n
Sheets("Recap").Select
Range("c3").Select
For Each i In ActiveWorkbook.Sheets
f = i.Name
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:="'" & f & "'" & "!A1", TextToDisplay:=f
ActiveCell.Offset(1, 0).Select
Next i
End Sub
Amicalement
Nad