Bonjour BEBE1310 et le forum
Je n'ai pas bien saisi ton pb, donc il faudra que tu adaptes le bricolage çi dessous :
Dim x, y As Variant
x = ActiveSheet.Range("A27").Value
y = x & "!A1"
Selection.Hyperlinks(1).SubAddress = y
La validation d'un expert en variable ne serait pas du luxe ;-)
Bonne journée et @+