Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$K$7" Then
Sheets("Feuil1").Range("T2").End(xlDown).Offset(1, 0).Select
ActiveCell = Range("K7")
ActiveCell.Offset(0, 1) = Date
ActiveCell.Offset(0, 2) = Range("K11")
End If
End Sub