Sub a()
Dim blablah$
blablah = "ANNEXE N° 01" & Chr(10) & "Du " & Format(Date, "dddd dd mmmm yyyy") & ", " & Chr(10) & Chr(10) & "Entreprise / ATELIER " & Chr(10) & Chr(10) & "LOYERS TRIMESTRIELS HORS TAXES EN EUROS N° 01" & Chr(10) & Chr(10) & "Comme précisé au protocole, les échéances du loyer de 570 052.00€ sont : "
ActiveCell = blablah
End Sub