Private Sub Workbook_Open()
Sheets("Test_Activate").Activate ' Active la feuille
DerLig = Sheets("Test_Activate").Range("B65500").End(xlUp).Row ' Calcule la dernière ligne occupée de Col B
Cells(1 + DerLig, 2) = Int(Now) ' Met la date dans la première cellule vide
End Sub