Dim lig As Long, col As Long, k As Long
Dim Tampon As String
For k = 1 To 10 'boucle sur les 10 combo
If Me.Controls("ComboBoxind" & k) = "" Or Me.Controls("ComboBoxnum" & k) = "" Then GoTo saute
Tampon = IIf(IsNumeric(Me.Controls("ComboBoxind" & k)), Me.Controls("ComboBoxind" & k), 0)
col = CLng(Tampon)