Sub creerLiensFeuilles()
Dim I As Byte, Derlgn As Byte
Dim Valeur As String
With Worksheets('Bilan')
.Hyperlinks.Delete
.Columns(1).ClearContents
For I = 1 To Sheets.Count
If Not Sheets(I).Name = 'Bilan' Then
Valeur = ''' & Sheets(I).Name & ''!A1'
Derlgn = .Range('A500').End(xlUp).Row + 1
Worksheets(I).Hyperlinks.Add Anchor:=.Cells(Derlgn, 1), Address:='', SubAddress:=Valeur
End If
Next I
End With
End Sub