Public Sub GenererCommandes()

	Dim CompteurLigne
	Dim NomFeuille
	Dim ContenuCase 'Contenu d une case

	Dim VarUser01

	Dim CommandeDeBase
	Dim CommandeFinale

	Dim VVVariable01
	Dim VVVariableRemplaceeParCase

	CommandeDeBase = "MonExe.exe ""\\VVVariable01\VVVariableRemplaceeParCase"" >> C:\UnLog.txt"

	VarUser01 = InputBox("Entrez la valeur de VarUser01", "VarUser01", "Variable user 01")

	NomFeuille = "Feuil1"

	Sheets(NomFeuille).Select
	CompteurLigne = 1
	ContenuCase = Trim(Cells(CompteurLigne, 1).FormulaR1C1)
	Do While Len(ContenuCase) > 0

		'Debut de modification de la commande de base
		CommandeFinale = Replace(CommandeDeBase, "VVVariableRemplaceeParCase", ContenuCase)

		'Modification d'autres variables
		CommandeFinale = Replace(CommandeFinale, "VVVariable01", VarUser01)
		Cells(CompteurLigne, 2).FormulaR1C1 = CommandeFinale

		CompteurLigne = CompteurLigne + 1
		ContenuCase = Trim(Cells(CompteurLigne, 1).FormulaR1C1)
		DoEvents

	Loop

End Sub