Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$5" Or Target.Address = "$A$3" Then
Plages = Array("D5:I11", "D14:I20", "D23:I29", "D32:I38", "D41:I47")
x = Range("D5").Formula
y2 = InStr(x, "!")
y1 = InStrRev(x, "(", y2)
moisan = Mid(x, y1 + 1, y2 - (y1 + 1))
For n = LBound(Plages) To UBound(Plages)
For Each cel In Range(Plages(n))
cel.Formula = Replace(cel.Formula, moisan, Range("A5") & Range("A3"))
Next
Next n
End If
End Sub