Private Sub maj(valeur1 As String, nucombo As Integer)
flag = True
For j = nucombo + 1 To 12 ' nombre de controles
For i = 0 To Me.Controls("designationP" & j).ListCount
Me.Controls("designationP" & j).ListIndex = i
If Me.Controls("designationP" & j).Value = valeur1 Then
Me.Controls("designationP" & j).RemoveItem (Me.Controls("designationP" & j).ListIndex)
Me.Controls("designationP" & j).Value = ""
Exit For
End If
Next i
Next j
flag = False
Me.Controls("designationP" & nucombo + 1).Visible = True
End Sub