Ecriture macro avec incrémentation de ligne

Bonjour,

Je vais essayer d'être le plus explicite possibel !

J'ai commencé une macro,

je me suis aidée de l'enregistreur,

Je voudrai que ma macro me permette de copier coller une parte de feuille sur une autre,

C'est à dire que quand j'appuie sur un bouton ou que je déclenche ma macro, elle me colle cette partie de feuille A à partir de la cellule A1 de la feuille B, et qu'ensuite si je redéclenche plus tard cette macro, qu'elle copie en A35..

J'avais commencé par définir quelques variables mais je fais des erreurs de "syntaxtes" et autre, comme je démarre vba.. Du coup j'essaie de m'aider du code suivant pour écrire mais je ne m'en sors pas;

Sub FeuillePalette2()



Dim LignFeuille As Long
Dim FeExtra As Worksheet
Dim FeType As Worksheet
Dim FePalette As Worksheet

Set FeExtra = ThisWorkbook.Sheets("Extraction cia flu")
Set FeType = ThisWorkbook.Sheets("Feuille Type")
Set FePalette = ThisWorkbook.Sheets("Palettes contrôlées")

    
    FeType.Range("A1:F39").Copy
    FePalette.Range("A1").Select
    ActiveSheet.Paste
    Sheets("Palettes contrôlées").Select
    ActiveWindow.ScrollRow = 10
    Range("A39").Select
    ActiveSheet.Paste
    ActiveWindow.ScrollRow = 11
    ActiveWindow.ScrollRow = 18
    ActiveWindow.ScrollRow = 21
    ActiveWindow.ScrollRow = 22
    ActiveWindow.ScrollRow = 23
    ActiveWindow.ScrollRow = 24
    ActiveWindow.ScrollRow = 23
    ActiveWindow.ScrollRow = 18
    ActiveWindow.ScrollRow = 17
    ActiveWindow.ScrollRow = 16
    ActiveWindow.ScrollRow = 15
    ActiveWindow.ScrollRow = 14
    ActiveWindow.ScrollRow = 13
    ActiveWindow.ScrollRow = 12
    ActiveWindow.ScrollRow = 11
    ActiveWindow.ScrollRow = 10
    ActiveWindow.ScrollRow = 9
    ActiveWindow.ScrollRow = 8
    ActiveWindow.ScrollRow = 7
    ActiveWindow.ScrollRow = 6
    ActiveWindow.ScrollRow = 5
    ActiveWindow.ScrollRow = 4
    ActiveWindow.ScrollRow = 3
    Sheets("Feuille Type").Select
    Range("B11:E29").Select
    
    Range("E29").Activate
    Application.CutCopyMode = False
    Selection.ClearContents
    ActiveWindow.ScrollRow = 9
    ActiveWindow.ScrollRow = 8
    ActiveWindow.ScrollRow = 7
    ActiveWindow.ScrollRow = 6
    ActiveWindow.ScrollRow = 5
    ActiveWindow.ScrollRow = 4
    ActiveWindow.ScrollRow = 3
    ActiveWindow.ScrollRow = 2
    ActiveWindow.ScrollRow = 1
    Range("D3").Select
    Selection.ClearContents
    Range("C6").Select
    Selection.ClearContents
    Range("E8").Select
    Selection.ClearContents
End Sub

Si vous aviez des conseils de rédaction ou autre, celà m'aiderai grandement !

Merci d'avance,