Bonjour le forum,

Je souhaite importer des données d'un onglet du classeur A à un onglet du classseur B suivant le titre des colonnes..
Alors pour faire cela je suis passée par un intermédiaire qui consiste à copier l'onglet du classeur A dans un onglet du classeur B.
Puis dans le nouvel onglet du classeur B je copie mes données d'un onglet à l'autre. Voici mon code.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
Private Sub Importer_click_Click()
 
Feuil1 = Application.GetOpenFilename("Fichier Excel (*.xls), *.xls")
 
If Len(Replace(Feuil1, ".xls", "")) = Len(Feuil1) Then
    MsgBox "Format fichier invalide"
Else
    Set Classeur1 = Application.Workbooks.Open(Feuil1)
 
End If
 
 
Set feuille_essai = ThisWorkbook.Worksheets("Essai")
 
 
'je copie d'un classeur à un autre
Sheets("Feuil1").Range("A5:S10000").Copy
ThisWorkbook.Activate
Sheets("Essai").Range("A8").Insert shift:=xlDown
 
'après je copie d'un onglet à un autre
Sheets("Essai").Range("A8:B10000").Copy
Sheets("Feuil2").Range("A8").PasteSpecial (xlPasteValues)
 
 
Sheets("Essai").Range("C8:F10000").Copy
Sheets("Feuil2").Range("D8").PasteSpecial (xlPasteValues)
 
Sheets("Essai").Range("G8:S10000").Copy
Sheets("Feuil2").Range("K8").PasteSpecial (xlPasteValues)
 
 
'cache la feuille essai
Set feuille_essai = ThisWorkbook.Worksheets("Essai")
feuille_essai.Visible = 2
 
End Sub
Alors je sais que ce n'est pas du très beau code, mais ça fonctionne

Lorsque j'appuie sur le bouton "importer", j'aimerais que les données que je copie, se copient à partir de la dernière ligne remplie (et non après la 10000eme ligne..)
Quelle fonction je peux utiliser?

Merci de votre aide.