Super! Mais j'ai un autre probleme! ;-)
Si ma série de code ressemble a ceci, pourrais tu me donner la boucle qui ferait pareil?
Sheets("Feuil1").Range("B20").Value = "='c:\excel.xls[excel.xls]Feuil1'!" & "C8"
Sheets("Feuil1").Range("C20").Value = "='c:\excel.xls[excel.xls]Feuil1'!" & "C10"
Sheets("Feuil1").Range("D20").Value = "='c:\excel.xls[excel.xls]Feuil1'!" & "C12"
Sheets("Feuil1").Range("E20").Value = "='c:\excel.xls[excel.xls]Feuil1'!" & "C14"
Merci mille fois
Eric