Private Sub CommandButtonDoc_Click()
Dim lig, col, k
For k = 1 To 10 'boucle sur les 10 combo
If Me.Controls("ComboBoxind" & k) = "" Or Me.Controls("ComboBoxnum" & k) = "" Then GoTo saute
col = CDbl(Me.Controls("ComboBoxind" & k))
col = 17 + (3 * col)
If col >= 38 Then col = col + 1
lig = CDbl(Me.Controls("ComboBoxnum" & k)) + 13
Cells(lig, col) = CDate(Me.TextBoxdatebd)
Cells(lig, col + 1) = Me.TextBoxbd
saute:
Next
End Sub