suivi historique

Option Explicit
Private Const HistoryWS As String = "historique"
Private WorkingRow As Range
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
    
    If Sh.Name <> HistoryWS Then
        Set WorkingRow = Range(Cells(Target.Row, 1), Cells(Target.Row, 255))
    End If
    
End Sub

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
    If Sh.Name <> HistoryWS Then
        With Worksheets(HistoryWS)
        WorkingRow.Copy .Range("A65536").End(xlUp).Offset(1, 0)
        End With
    End If
End Sub