Bonjour
une proposition. les noms de tes onglets pouvant être confondus avec une adresse de cellule (RE1), j'ai ajouté un _ dans le nom de la plage nommée.
Sub aargh()
For Each ws In Worksheets
wsn = ws.Name
pn = Replace(Replace(wsn, " ", ""), "TT", "_")
ActiveWorkbook.Names.Add Name:=pn, RefersTo:="='" & wsn & "'!$B$1:$I$1"
Next ws
End Sub
je crois que j'ai mal compris la demande