Private Sub Worksheet_Change(ByVal Target As Range)
With Sheets("Mémoire")
.Cells(Application.Match([A5], .[A:A], 0), 2).Resize(31, 25) = [C5:AA35].Formula
End With
Columns.AutoFit 'ajustement largeurs
End Sub
Private Sub Worksheet_Calculate()
Application.EnableEvents = False 'désactive les évènements
With Sheets("Mémoire")
[C5:AA35] = .Cells(Application.Match([A5], .[A:A], 0), 2).Resize(31, 25).Formula
End With
Application.EnableEvents = True 'résctive les évènements
End Sub