Chaine = "Bonjour ""Mr"" marcelin"Si tu veux le faire de manière automatique, tu peux utiliser la fonction Replace :
Print #1, Replace(Chaine, Chr(34), Chr(34) & Chr(34)) ' Chr(34) = le caractère " ' ou encore Print #1, Replace(Chaine, Chr(34), """", """""")