Bonjour à toute l'équipe du forum,

J''ai créé un code qui permet de transféré la ligne active d'une feuille vers la première ligne vide d'une autre feuille "poubelle".

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
Sub transfert()
 
x = ActiveCell.Row
Rows(x).Select
 
Selection.Cut
Sheets("Poubelle").Select
Rows(Range("a65536").End(xlUp).Row + 1).Select
ActiveSheet.Paste
Sheets("En cours").Select
Rows(x).Delete Shift:=xlUp
 
End Sub
Je voudrais insérer à chaque transfert dans la cellule (H;ligne copiée) la date de transfert de ma ligne.
Date qui serait alors fixée.

Quel bout de code dois-je rajouter à ma macro?

Merci

Chewi