Retranscription données tableau

Bonjour au forum,

Je suis actuellement à la recherche d'un code Vba pouvant me permettre de remplir un tableau à partir d'un tableau "source".

Sur le fichier joint, par l'intermédiaire du bouton "saisie encadrant" je remplis le tableau qui se situe en dessous.

Le tableau situé dans l'onglet "données cellule qualité" concerne uniquement l'encadrant "cadre 1".Ainsi, dès lors qu'une valeur "cadre 1" est saisie dans le tableau de l'onglet "ressources humaines" je veux que la ligne soit retranscrite automatiquement sur l'autre tableau. voici ma tentative....

Private Sub VALIDER_Click()
Dim ctrl As Control
Dim r As Integer
Dim derligne As Integer

TextBox2.Value = Format(Date, "DD/MM/YYYY")

With Worksheets("RESSOURCES HUMAINES")
If Range("R10") = "" Then derligne = 10 Else derligne = .Range("R" & Rows.Count).End(xlUp).Row + 1
For Each ctrl In UserForm3.Controls
r = Val(ctrl.Tag)
If r > 0 Then
If r = 18 Then
.Cells(derligne, r) = CDate(ctrl)
Else
.Cells(derligne, r) = ctrl
End If
End If
Next
End With
With Worksheets("DONNEES CELLULE QUALITE")
If Range("C10") = "" Then derligne = 10 Else derligne = .Range("C" & Rows.Count).End(xlUp).Row + 1
For Each ctrl In UserForm3.Controls
r = Val(ctrl.Tag)
If r > 0 Then
If r = 18 And ComboBox1 = "CADRE1" Then
.Cells(derligne, 3) = CDate(ctrl)
Else
If r = 19 And ComboBox1 = "CADRE1" Then
.Cells(derligne, 4) = ctrl
End If
End If
End If
Next
End With
End
End Sub

Mais ca marche pas totalement.

Tout se passe bien pour la première ligne mais ca se gate pour les suivantes.

Si on entre les valeurs:

CADRE1

CADRE2

CADRE3

CADRE1 via le formulaire on devrait avoir sur le tableau "données cellule qualité"

CADRE1

CADRE1

sauf qu'une ligne n'apparait pas.....snif...

Si vous avez une idée...

Cordialement

Bonjour

2 petites idées

Mets un . ( point ) devant Range("R10") et devant Range("C10") dans les lignes

If .Range("R10") = "" Then derligne = 10 Else derligne = .Range("R" & Rows.Count).End(xlUp).Row + 1

If .Range("C10") = "" Then derligne = 10 Else derligne = .Range("C" & Rows.Count).End(xlUp).Row + 1

Rooo la honte.Merci une fois de plus Banzai64.

Bonne soirée à tout le forum