[RESOLU] - VBA - Problème insertion donnée dans feuille depuis combobox d'un userform

Private Sub Ajouter_Click()
'----------------------------------------
'pour ajouter les données du formulaire !
'----------------------------------------

Dim Ctrl As Control
Dim r As Integer
Dim t As Integer
Dim DernLigne As Long

    With Worksheets("Clients")
    DernLigne = Range("A" & Rows.Count).End(xlUp).Row + 1
        For Each Ctrl In MENU.Controls
        r = Val(Ctrl.Tag)
        
            If r > 0 Then Feuil1.Cells(DernLigne, r) = Ctrl
    Next

   End With

ComboBoxCATEGORIE = ""

End

End Sub

Private Sub Ajouter_Click()
'----------------------------------------
'pour ajouter les données du formulaire !
'----------------------------------------

Dim Ctrl As Control
Dim r As Integer
Dim t As Integer
Dim derligne As Long
Dim vReponse As Integer

vReponse = MsgBox("voulez-vous ajouter des données ?", vbYesNo + vbInformation, "ATTENTION")
If vReponse = vbYes Then
        With Worksheets("Clients")
        derligne = .Range("A" & Rows.Count).End(xlUp).Row + 1

            For Each Ctrl In MENU.Controls
            r = Val(Ctrl.Tag)
        
                If r > 0 Then Feuil1.Cells(derligne, r) = Ctrl
        Next

        End With

    ComboBoxCATEGORIE = ""

    Unload Me
    MENU.Show
    
    End
End If
End Sub