With Sh.TextFrame.TextRange
.Text = Chr$(CharCode:=13) + " Nombre : " & [COLOR="red"][B]Range("B7") [/B][/COLOR]+ Chr$(CharCode:=13) + Chr$(CharCode:=13) + "Poids moyen : " + Chr$(CharCode:=13) + Chr$(CharCode:=13) + "ll" & Range("B7") + Chr$(CharCode:=13) + Chr$(CharCode:=13) + "Liquidité : " & [COLOR="red"][B]Range("B13")[/B][/COLOR]
Si je retire les Range mon script fonctionne très bien.
Je penses que c'est parce qu'il faut faire une conversion de ma cellule, mais je n'ai rien réussie à faire pour cela fonctionne
Merci pour votre aide.
Best regards,
Miky