Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Row < 4 Or Target.Column <> 13 Or Target.Count > 1 Then Exit Sub
If Target <> "" And IsDate(Target) Then
L = Target.Row
If MsgBox("valider la ligne ?", vbYesNo) = vbYes Then
T = Range(Cells(L, 1), Cells(L, 14)).Value
With Sheets("Backup")
dL = .Range("A65000").End(xlUp).Row + 1
.Range(.Cells(dL, 1), .Cells(dL, 14)) = T
End With
Cells(L, 10).ClearContents
Cells(L, 14).ClearContents
End If
End If
End Sub