Bonjour Bebere en effet vous avez raison je n'avait pas fait attention a ma formule qui stipule en objet le tableau +le nom de la feuille
Set Ws = Worksheets(CboNomFeuille.Value)
Nom = "TblValidation" & Me.CboNomFeuille
Set ListObj = Ws.ListObjects(Nom)
Mais sur un autre fichier avec le même formulaire et tableau ,j'utilise ceci :
Private Sub cmdbajouter_click()
Dim LI As Integer
Dim OD As Worksheet
If Me.CboNomFeuille.Value = "" Then
MsgBox "Veuillez sélectionner un cycle de semaines ", vbOKOnly + vbInformation, "Validation"
CboNomFeuille.SetFocus
Exit Sub
End If
Set OD = Worksheets(CboNomFeuille.Value)
If OD.Range("C2").Value = "" Then
LI = 2
Else
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
End sub
Et ça fonctionne aussi merci pour votre patience et vos réponse ,grâce a vous et le forum XLD ,je continue d'apprendre et progresser .Bonne journée