Option Explicit
Sub test()
Dim ws As Worksheet
For Each ws In Worksheets
If ws.Name <> "Feuille principale" Then
With ws
.Range("B2").Hyperlinks.Add Anchor:=.Range("B2"), Address:="", SubAddress:= _
"Feuille principale!A1", TextToDisplay:="Retour récap"
End With
End If
Next ws
End Sub