Une piste avec du code VBA
(à mettre dans le code de la feuille concernée)
VB:
Private Sub Worksheet_Change(ByVal T As Range)
If T.Address = "$B$2" Then
Application.ScreenUpdating = False
T.Copy
T(1, 3).PasteSpecial Paste:=xlPasteAllUsingSourceTheme
End If
Application.CutCopyMode = False
End Sub