Incrementation premiere ligne tableau

Bonjour à tous,

Petit problème rencontré ce matin.Dans un programme, j'utilise un formulaire qui me permet de remplir automatiquement un tableau ligne après ligne.J'ai trouvé le code qui me permet de remplir le tableau cependant lorsque celui ci est vide,ce n'est pas la première ligne qui est remplie mais la seconde.Je vois où est le problème mais je ne trouve pas la syntaxe qui peut me permettre d'arriver à mes fins... Selon moi, tout se joue au niveau de la ligne:

"derligne = .Range("C" & Rows.Count).End(xlUp).Row + 1"

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

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

With Worksheets("CELLULE QUALITE")
derligne = .Range("C" & Rows.Count).End(xlUp).Row + 1
For Each ctrl In UserForm1.Controls
r = Val(ctrl.Tag)
If r > 0 Then
If r > 4 And r < 8 Then
.Cells(derligne, r) = CDate(ctrl)
If r = 7 Then .Cells(derligne, r).NumberFormat = "h:mm;@"
Else
.Cells(derligne, r) = ctrl
End If
End If
Next
End With
End
End Sub

Si quelqu'un a une idée je suis preneur

Bonne journée

Bonjour Relien33, le Forum,

Voici une façon de faire, parmi d'autres :

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

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

With Worksheets("CELLULE QUALITE")
If Range("C1") = "" Then derligne = 1 Else derligne = .Range("C" & Rows.Count).End(xlUp).Row + 1
For Each ctrl In UserForm1.Controls
r = Val(ctrl.Tag)
If r > 0 Then
If r > 4 And r < 8 Then
.Cells(derligne, r) = CDate(ctrl)
If r = 7 Then .Cells(derligne, r).NumberFormat = "h:mm;@"
Else
.Cells(derligne, r) = ctrl
End If
End If
Next
End With
End
End Sub

Cordialement.

Bonsoir Papou

Merci pour cette réponse.Je l'ai adaptée et elle marche à merveille.

J'en profite pour remercier le site pour tous les conseils prodigués et les utilisateurs pour leur disponibilité!

Bonne soirée