=INDIRECT($B11&"!"&CELLULE("adresse";C$8))
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Static b As Boolean
Dim c As Range
If b = False And Target.Count = 1 And Not Intersect(Target, Range("B11:B13")) Is Nothing Then
b = True
For Each c In Range(Target.Offset(0, 1), Target.Offset(0, 254).End(xlToLeft).Address)
c.FormulaLocal = "=" & Target.Value & "!" & Split(c.FormulaLocal, "!")(1)
Next c
b = False
End If
End Sub