Bonjour,

Voici le code que j'ai placé derrière un bouton qui me permet de copier une place de cellules sur une autre feuille à la suite des autres. Mon problème c'est que depuis la création d'un tableau pour la mise en forme, il n'ajoute pas les lignes dans le tableau mais en dessous.

Pouvez-vous me dire ce qu'il faut que je change dans mon code ?

merci

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
Dim Cellule As Range
 
    Application.ScreenUpdating = False
    ActiveSheet.Unprotect
    Sheets("Pièces").Visible = True
    Sheets("Pièces").Range("A2:H2").Copy
    Set Cellule = Range("b65536").End(xlUp)(2)
 
    Cellule.Select
    ActiveSheet.Paste
    Cellule.Select
    ActiveCell.Offset(rowOffset:=1, columnOffset:=1).Activate
    ActiveSheet.EnableSelection = xlNoRestrictions
    Application.ScreenUpdating = True