Select Case i
Case 1
Sheets("feuil2").Cells(.List(.ListIndex, 1), i) = CDate(Controls("TextBox" & i))
Case 2, 8, 10, 11, 12, 13
Sheets("feuil2").Cells(.List(.ListIndex, 1), i) = CDbl(Controls("TextBox" & i))
Case 3, 4, 5, 6, 7, 9
Sheets("feuil2").Cells(.List(.ListIndex, 1), i) = CStr(Controls("TextBox" & i))
End Select