Bonjour de nouveau,

Je repose une question car je ne parviens pas à comprendre ce que je trouve sur le net.

J'ai un code qui ressemble à ça :
Code :Sélectionner tout -Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
'Déclaration des variables
Dim illus
 
'Saisie des variables par l'utilisateur
illus = inputbox("Y a-t-il des illustrations ?")
 
'Script collé dans la fenêtre
Application.ActiveWindow.Title.InsertText"Texte aléatoire à insérer"&vblf_
"Suite du texte aléatoire après saut de ligne"&vblf
 
'Choix avec ou sans illustration
select case illus
case "Oui"
Application.ActiveWindow.Title.InsertText" Illustrations, texte"&vblf
case "Non"
Application.ActiveWindow.Title.InsertText" texte"&vblf
end select


Ce qui me donne, copié dans la zone à remplir de l'application :
Texte aléatoire à insérer
Suite du texte aléatoire après saut de ligne
Illustrations, texte [ou] texte
Or je voudrais qu'il n'y ait pas de saut de ligne après "Suite du texte aléatoire après saut de ligne" :
Texte aléatoire à insérer
Suite du texte aléatoire après saut de ligne Illustrations, texte
Mais je ne comprends pas comment y arriver.

Pourriez-vous m'aider ?