Bonjour,
La macro pour remplir la colonne J de la feuille 2
Sub Formule()
Dim Sh As Worksheet
Application.ScreenUpdating = False
Set Sh = Sheets("Feuille2")
DerLig = Sh.Range("K" & Rows.Count).End(xlUp).Row
For i = 2 To DerLig
If Sh.Cells(i, "J") = "" And Sh.Cells(i, "K") <> "" Then Sh.Cells(i, "J") = Format(Date, "m/d/yyyy")
Next i
Set Sh = Nothing
End Sub
Cdlt