En fait la macro complète est :
Private Sub OK_Click()
Dim FeuilleOrigine, FeuilleDestination, NomTable
Dim lignefin, colfin, lignedeb, coldeb
'lecture userform
FeuilleOrigine = ComboBoxType.Value
FeuilleDestination = 'TCD_' & ComboBoxType.Value
NomTable = 'Table_' &...