Option Explicit
Public DateTransmission As Date
Public Ligne As Long
Sub test()
With ThisWorkbook.Sheets(1)
.[A1] = Date: DateTransmission = .[A1]
Ligne = .[A65536].End(xlUp).Row
.Range("B1:B" & Ligne).Resize(, 2) = _
StrConv(Format(DateTransmission, _
"dddd d mmmm yyyy"), vbProperCase)
End With
MsgBox "Nous sommes le : " & DateTransmission & "."
End Sub