Adapter code copier pour que la copie début à la

Salut à tous

Lermite m'a aidé avec ce code pour faire des copier-coller.

J'ai tenté d'adapter le code pour que la copie débute en B17 et voici que j'ai pas pu.

J'ai essayé de comprendre le code mais en vain.

Merci de m'aider encore juste pour que la copie débute en B17 et aussi que je puisse savoir prochainement comment y faire.

Mille merci à vous et surtout à Lermite

Sub Copier_Col()
Dim TB(3) As String
Dim LigneVide As Long, i As Integer
Sheets("PARAMETRE").Visible = xlSheetVeryHidden
'verification des identifiants

If Sheets("PARAMETRE").Range("AE7").Value = "" Then
MsgBox ("Manque le N° du compte")
Exit Sub
ElseIf Sheets("PARAMETRE").Range("AE13").Value = "" Then
MsgBox ("Le code utilisateur n'est pas renseigné")
Exit Sub
ElseIf Sheets("PARAMETRE").Range("AF8").Value = "" Then
MsgBox ("Le client ne veut pas de BSMS")
Exit Sub
ElseIf Application.WorksheetFunction.CountIf(Sheets("ETAT_COLINA").Range("C3:C" & Sheets("ETAT_COL").Range("c65536").End(xlUp).Row), Range("ae7").Value) > 0 Then
MsgBox ("Ce compte est déjà présent dans la feuille ETAT_COL")
Exit Sub
End If
With Sheets("PARAMETRE")
'copie des cellules
TB(1) = .Range("ae6").Value 'date
TB(2) = .Range("ae7").Value 'nom_prenom
TB(3) = .Range("ae9").Value 'n° compte
End With

'Avec la feuille de destination
With Sheets("ETAT_COL")
'selection de la première cellule vide
LigneVide = .Cells(Rows.Count, 2).End(xlUp).Row
If LigneVide > 1 Then LigneVide = LigneVide + 1
'Copie les données
For i = 1 To 3
.Cells(LigneVide, i + 1) = TB(i)
Next i
End With
End Sub

Re,

    'Avec la feuille de destination
    With Sheets("ETAT_COL")
        'selection de la première cellule vide
        LigneVide = .Cells(Rows.Count, 2).End(xlUp).Row + 1
        If LigneVide < 17 Then LigneVide = 17 'commence à la ligne 17 si première copie
        'Copie les données
        For i = 1 To 3
            .Cells(LigneVide, i + 1) = TB(i)
        Next i
    End With

Je pense que c'est ce que tu veux

A+

Salut lermite

Merci. C'est super