Addition de deux tableaux de feuilles distincte dans une troisième

Bonjour,

Voici mon code actuel :

Sub update_résultat()

'Déclaration des variables
Dim wb As Workbook
Dim Wb_trouve As Boolean

'Désactiver l'affichage
Application.ScreenUpdating = False

'Désactiver les alertes office
Application.DisplayAlerts = False

'Selectionner les données et copier les données
ActiveWorkbook.Sheets("BD_Perso").Select
ActiveWorkbook.Sheets("BD_Perso").Rows("2:10000").Select
Selection.Copy

'Copier les données dans l'onglet résultat
ThisWorkbook.Sheets("résultat").Range("A2").Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=False

'Selectionner les données et copier les données
ActiveWorkbook.Sheets("BD_Générale").Select
ActiveWorkbook.Sheets("BD_Générale").Rows("3:10000").Select
Selection.Copy

'Copier les données dans l'onglet résultat
ThisWorkbook.Sheets("résultat").Range("dernière ligne du premier collage").Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=False

'Activer l'affichage
Application.ScreenUpdating = True

'Activer les alertes office
Application.DisplayAlerts = True

MsgBox ("La bibliothèque a été mise à jours"), vbInformation

End Sub

Voici le nom des onglets :

Le but de ce programme est de cumuler deux tableaux ayant les mêmes noms de colonne dans la feuille résultat. C'est à dire aucune comprasion, simplement les mettre l'un en dessous de l'autre. Il me manque la sélection de la dernière ligne utilisée pour que le programme se déroule sans encombre.

Merci d'avance.

Cordialement.

Je complète moi même mon poste pour le fermer

Sub update_résultat()

'Déclaration des variables
Dim wb As Workbook
Dim Wb_trouve As Boolean

'Désactiver l'affichage
Application.ScreenUpdating = False

'Désactiver les alertes office
Application.DisplayAlerts = False

'Selectionner les données et copier les données
ActiveWorkbook.Sheets("BD_Perso").Select
ActiveWorkbook.Sheets("BD_Perso").Rows("2:2000").Select
Selection.Copy

'Copier les données dans l'onglet résultat
ActiveWorkbook.Sheets("résultat").Select
ThisWorkbook.Sheets("résultat").Range("A2").Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=False

'Selectionner l'onglet biblio et supprimer les données
ThisWorkbook.Sheets("résultat").Rows("2000:10000").Select
Selection.Delete

'Selectionner les données et copier les données
ActiveWorkbook.Sheets("BD_Générale").Select
ActiveWorkbook.Sheets("BD_Générale").Rows("3:2000").Select
Selection.Copy

'Copier les données dans l'onglet résultat
ActiveWorkbook.Sheets("résultat").Select
ThisWorkbook.Sheets("résultat").Range("A" & Rows.Count).End(xlUp).Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=False

'Selectionner l'onglet biblio et supprimer les données
ThisWorkbook.Sheets("résultat").Rows("2000:10000").Select
Selection.Delete

'Activer l'affichage
Application.ScreenUpdating = True

'Activer les alertes office
Application.DisplayAlerts = True

MsgBox ("La bibliothèque a été mise à jours"), vbInformation

End Sub

Bonjour

Avec PowerQuery, intégré à ta version Excel, ce la se fait en quelques clics