'insertion dans tableau
col_tcd = 13
' insertion ligne
Sheets("TCD1").Cells(ligne, 3).Value = ComboBox1.Value
'relier cellules résultats
For itcd = 1 To 28
Sheets("TCD1").Cells(ligne, col_tcd).Select '====> l'erreur ce produit ici
ActiveCell.FormulaR1C1 = "=RésultatsD1!RC[9]"
col_tcd = col_tcd + 24
Next itcd