Dim x As Integer
For x = 4 To 14
no_ligne = Sheets("Journal").Range("A365536").End(xlUp).Row + 1
Sheets("Log").Cells(no_ligne, 1) = Format(Date, "yyyy/mm/dd") & " " & Format(Time, "hh:mm:ss")
Sheets("Log").Cells(no_ligne, 2) = Range("C" & x).Value
Sheets("Log").Cells(no_ligne, 3) = Range("D" & x).Value
Next x