Private Sub ComboBox1_Change()
Dim Ind As Integer
With Sheets("Data")
For Ind = 1 To 20
'Nb creneaux
Me("NbCrenT_" & Ind).Value = .Cells(ComboBox1.ListIndex + 5, 2 + (Ind * 2)).Value
Me("ResCrenT_" & Ind).Value = .Cells(ComboBox1.ListIndex + 5, 3 + (Ind * 2)).Value
Next Ind
End With
Call Test
End Sub