Sub concatenerjj()
Dim Cible As Range
Dim Debut1&, Debut2&
Dim Longdate1&, Longdate2&
Set Cible = [c1] '************ A adapter la cellule de destination
Cible = "concernant votre séjour du "
Debut1 = Len(Cible) + 1
Longdate1 = Len(Format([$K$43], "dd mmmm yyyy"))
Cible = Cible & Format([$K$43], "dd mmmm yyyy") & " au "
Debut2 = Len(Cible) + 1
Longdate2 = Len(Format([$K$44], "dd mmmm yyyy"))
Cible = Cible & Format([$K$44], "dd mmmm yyyy")
Cible.Characters(Start:=Debut1, Length:=Longdate1).Font.FontStyle = "Gras"
Cible.Characters(Start:=Debut2, Length:=Longdate2).Font.FontStyle = "Gras"
End Sub