Bon j'ai trouvé quelque chose... cela ne me plait pas car cela fait appel des Activate... mais cela a le mérite de fonctionner...
code a placer dans la feuille Facturation par billet (pas dans un module....)
Private Sub Worksheet_FollowHyperlink(ByVal h As Hyperlink)
Application.ScreenUpdating = False
Sheets("Facturation par billet").Activate
Sheets("Facture").[B1] = Sheets("Facturation par billet").Range(ActiveCell.Address)
Sheets("Facture").Activate
End Sub
j'aurais pensé qu'on pouvait faire quelque chose de plus propre mais pas trouvé...
EDIT :
bon un truc un peu mieux...
Private Sub Worksheet_FollowHyperlink(ByVal h As Hyperlink)
Dim shd As Worksheet
Application.ScreenUpdating = False
Set shd = ActiveSheet
ActiveSheet.Previous.Select
shd.[B1] = ActiveSheet.Range(ActiveCell.Address)
shd.Select
End Sub
Fred