Sub Macro1()
Dim FichierDorigine As Workbook 'déclare la variable cs (Classeur Source)
Dim Variable2, Variable3, Variable4, Variable5, Variable6, Variable7, Variable8, Variable9, Variable10 as string
Dim Variable11, Variable12, Variable13, Variable14, Variable15, Variable16, Variable17, Variable18, Variable19, Variable20 as string
Set FichierDorigine = Workbooks("Test1.xls")
For i = 2 To 20
Variable & i = FichierDorigine.Sheets("Feuil1").Range("C" & i)
Next i
End Sub