XL 2019 Pb enregistrement sur derniere ligne de tableau

Private Sub cmdbajouter_click()
Dim nbcontrole As Integer 'inutile. ce n'est pas une variable mais une constante écrite en dur !...
Dim NouvelleLigne As Range
Dim MaFeuille As String

If Me.CboNomFeuille.Value = "" Then
    MsgBox "Veuillez sélectionner un cycle de 5 semaines ", vbOKOnly + vbInformation, "Validation"
    Exit Sub
End If

MaFeuille = CboNomFeuille.Value

'on se positionne sur la derniere ligne de la table de donnée
Set NouvelleLigne = Worksheets(MaFeuille).Cells(Rows.Count, 2).End(xlUp).Offset(1, 1)

For x = 1 To 6
    NouvelleLigne.Offset(0, x - 1).Value = Me.Controls("Cont" & x).Value
    'Me.Cont1.value = format(Me.Cont1.value,"jj/mm/aaaa")
Next x

'on réinitialise les champs du formulaire à vide
For x = 1 To 6
Me.Controls("Cont" & x).Value = ""
Next x

CboNomFeuille.Value = ""
'on affiche un message de validation de saisie
MsgBox "La validation a bien été envoyé sur la feuille : " & MaFeuille, vbOKOnly + vbInformation, "Validation"
End Sub

Private Sub UserForm_Initialize()
Dim feuille As Worksheet

For Each feuille In Worksheets
Select Case feuille.CodeName 'codename etant le nom de la feuille
    Case "Feuil1", "Feuil2", "Feuil4", "Feuil5", "Feuil6", "Feuil7", "Feuil8"
    Case Else
        Me.CboNomFeuille.AddItem feuille.Name
    End Select
Next feuille
End Sub

Private Sub cmdbquitter_click()
Unload Me
End Sub

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
    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
    Me.Controls("Cont" & x).Value = ""
Next x
CboNomFeuille.Value = ""
MsgBox "La validation a bien été envoyé sur la feuille : " & MaFeuille, vbOKOnly + vbInformation, "Validation"
End Sub