Sub CreerCheckBoxWordWrap()
Dim OL As OLEObject
Dim CB As MSForms.CheckBox
Dim A$
A$ = "Afin de faciliter la compréhension de votre demande il est conseillé de placer votre exemple et explications dans un fichier. Pour l'envoyer, cliquez sur le bouton ''Gérer les pièces jointes'' dans la zone ''Options supplémentaires'' ci-dessous. Ensuite cliquez sur le bouton ''Parcourir'', et sélectionnez-le (après l'avoir compressé s'il dépasse les 50Ko)."
Set OL = ActiveSheet.OLEObjects.Add(ClassType:="Forms.CheckBox.1", _
Link:=False, DisplayAsIcon:=False, Left:=40, Top:=40, Width:=100, Height:=100)
Set CB = OL.Object
CB.AutoSize = True
CB.WordWrap = True
CB.Caption = A$
End Sub