Bonjour Daniel, le forum,
En suppriment ta zone de texte et en fusionnant les cellules B4:H5 (à condition qu'elle ne servent qu'à afficher le texte):
Si case cocher, on écrit en dur dans la cellule (police rouge en gras):
Sub Caseàcocher1_Cliquer()
Dim msg As String
msg = "MERCI DE PROGRAMMER UNE INTERVENTION POUR CE CLIENT ET DE L'APPELER POUR CONCERTER AVEC LUI DE LA DATE SELECTIONNER DE SA DISPONIBILITE."
With Sheets("Fiche à imprimer").Range("B4")
.Value = IIf(Sheets("Fiche à imprimer").Shapes("Case à cocher 1").ControlFormat.Value = xlOn, msg, "")
End With
End Sub
Cordialement,