Comment faire pour déplacer des données de certaines cellules

bonjour je suis débutant, je désire créer sur ma feuille 3 une etiquette qui reprendrait les données de la feuille 1 ( en séparant par une virgule les mots) et qui reprenne aussi les infos des colonnes E,F,G,H,I . (en vba)

je joins mon fichier

Bonjour et bienvenu sur Excel Pratique

Ci joint ma solution

la macro se lance quand la feuille3 est active

A+ François

bonjour,

merci

dites sur ma ligne de code

Range("A1") = vr & " " & " : Cal.:" & vl & " -" & "Lip.:" & vo & " -" & "Gl.:" & vp & " -" & "Pr.:" & vq & vbCrLf & "Ingrédients: " & Mid(temp, 2, Len(temp)) & vbLf & "DLC " & DateAdd("d", 12, Date) & " /00001" & " -" & " Allerg. :"

Je désirerais que la fonction vr ( qui reprend une cellule d'une autre feuille) soit en gras, ainsi que le mot "ingrédient".

Comment dois je écrire mon code pour que ce soit en gras ?