Dans cette partie de macro, j'ai enlevé le test par rapport à now()
With Sheets("Cours")
For lig = 2 To .Range("A1").End(xlDown).Row
For col = 2 To .Range("A1").End(xlToRight).Column
Print #numfich, "BEGIN:VEVENT"
Print #numfich, "SUMMARY:" & Sans_accents(.Cells(lig, 1))
Print #numfich, "DTSTART;VALUE=DATE:" & Format(.Cells(lig, col) - 1, "yyyymmdd")
Print #numfich, "DTEND;VALUE=DATE:" & Format(.Cells(lig, col), "yyyymmdd")
Print #numfich, "TRANSP:TRANSPARENT"
Print #numfich, "DESCRIPTION:" & (.Cells(1, col))
Print #numfich, "END:VEVENT"
Next col
Next lig
End With