METTEZ UNE MAJUSCULE À VOS TITRE

Public Sub Majuscule_A_La_Date(TrucBibuleChouette As Label)

Dim Restant_Date As Long
Restant_Date = Len(Format$(Now, "dddd d mmm yyyy - hh:mm:ss"))

TrucBibuleChouette.Caption = UCase$(Left(Format$(Now, "dddd d mmm yyyy - hh:mm:ss"), 1)) & Right(Format$(Now, "dddd d mmm yyyy - hh:mm:ss"), Restant_Date - 1)
'PS : mettez dans un Timer (par ex. : "Majuscule_A_La_Date Label1") pour mettre à jour toutes les secondes, et vous avez la date et l'heure qui changent avec les secondes ! =)
End Sub