XL 2010 copier un code dans toutes les feuilles excel.

[lestoiles1]

Bonjour à tous,

Je dois copier cette formule dans toutes les feuilles excel. 896 étant le nom d'une feuille. qu'est que je dois faire? merci

Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
With Sheets("896")
.Visible = False
End With
End Sub

 

[Staple1600]

Bonjour le fil, lesetoiles1

lesetoiles1
Oui, il est un peu tard mais "faute de grives, on mange des merles"
Tout en ne sachant pas où tu veux en venir
code à mettre dans ThisWorkBook

Private Sub Workbook_SheetFollowHyperlink(ByVal Sh As Object, ByVal Target As Hyperlink)
On Error Resume Next
Sh.Visible = False
End Sub

 

[lestoiles1]

Merci bcp, j'ai dû le faire un par un mais c bon a savoir