XL 2019 transfer listbox vers une colonne à partir de la 4 ligne

[escudo]

Bonsoir tout le monde
je veux transferer les donnees d'une listbox vers une colonne à partir de la ligne 4 le souci c'est que mon code fait un décalage au lieu de la cellule 4 il transfert mes donnees a partir de la cellule 3
Voici mon code


Private Sub CommandButton4_Click()
Dim rep As Integer
Application.Calculation = xlCalculationManual
If ListView1.ListItems.Count = 0 Then Exit Sub
rep = MsgBox("Soyez Sûr Des Quantités" & Chr(10) & "Voulez-Vous Valider cette opération ????", vbYesNo + vbQuestion)
With Worksheets("STOCK")
If rep = vbYes Then
a = Me.ListBox7.List
Set r = .Range("C4", .Range("C" & .Rows.Count).End(xlUp))
r.Resize(UBound(a)) = a
Else
Exit Sub
End If
End With
Sheets("STOCK").Calculate
Unload Me
UserForm13.Show
End Sub

 

[herve62]

Bonsoir
Au lieu de mettre du code brut de brut ..... même juste un bout de fichier qui inclut to Pb serait plus judicieux car on pourrait travailler direct avec

 

[escudo]

j'ai trouver la solution mettre xldown à la place de xlup
Set r = .Range("C4", .Range("C" & .Rows.Count).End(xlUp))
Set r = .Range("C4", .Range("C" & .Rows.Count).End(xlDown))