Private Sub Worksheet_Calculate()
If [H1] = 1 Then
With Sheets("Feuil2")
derlig = IIf(.[A65000].End(xlUp).Row + 1 > 1, 1, .[A65000].End(xlUp).Row + 1)
.Range(.Cells(derlig, 1), .Cells(derlig, 7)).Value = Range("A1:G1").Value
End With
End If
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$H$1" And Target = 1 Then
With Sheets("Feuil2")
derlig = IIf(.[A65000].End(xlUp).Row + 1 > 1, 1, .[A65000].End(xlUp).Row + 1)
.Range(.Cells(derlig, 1), .Cells(derlig, 7)).Value = Range("A1:G1").Value
End With
End If
End Sub