Bonjour le forum ,bonjour Eric ,j'ai trouvé la solution avec ce code :
'Procédure validation données
Private Sub cmdbajouter_click()
Dim LI As Integer
Dim OD As Worksheet
If Me.CboNomFeuille.Value = "" Then
MsgBox "Veuillez sélectionner un cycle de 5 semaines ", vbOKOnly + vbInformation, "Validation"
CboNomFeuille.SetFocus
Exit Sub
End If
Set OD = Worksheets(CboNomFeuille.Value)
If OD.Range("C2").Value = "" Then
LI = 2
Else
ActiveSheet.Unprotect ("blablabla")
OD.ListObjects(1).ListRows.Add
LI = OD.Range("C1").End(xlDown).Row + 1
End If
For x = 1 To 6
OD.Cells(LI, x + 2).Value = Me.Controls("Cont" & x).Value
Next x
CboNomFeuille.Value = ""
MsgBox "La validation a été prise en compte sur la feuille : " & MaFeuille...