Copier une feuille vers un autre classeur sans ligne vide

Bonjour,

Voilas je suis en stage et je dois réaliser des macro sous excel. L'une d'elle doit permettre de copié une feuille d'un classeur et de le collé sur une autre feuille dans un autre classeur. En plus de la copie, je doit enlever les ligne vide de tableau copié, et également rajouter 4 colonnes. Pour ma part j'ai déjà réussis à copié le fichier en rajoutant les colonne, mais impossible de le faire en enlevant les ligne dans la celule A est vide.

Voici le code que j'ai réaliser:

Dim wb As Workbook
Dim derlig As Long

    With Application.FileDialog(msoFileDialogOpen)
         .AllowMultiSelect = False
         .Show
         ChoixFichier.TextBox1.Text = .SelectedItems(1)
         Set wb = Workbooks.Open(.SelectedItems(1))
    End With

        derlig = ThisWorkbook.Worksheets("VaveList").Range("A" & Rows.Count).End(xlUp).Row

    For x = derlig To 1 Step -1
             If wb.Sheets("PriceList").Cells(x, "A") <> "" Then
                     wb.Sheets("PriceList").Cells.Copy ThisWorkbook.Sheets("ValveList").Cells
             End If
    Next x

        'ThisWorkbook.Sheets("ValveList").Activate
        'Columns("C:C").Insert Shift:=xlToRight
        'Range("C8").FormulaR1C1 = "Radio"

        'Columns("J:J").Insert Shift:=xlToRight
        'Range("J8").FormulaR1C1 = "SAP Order"

        'Columns("K:K").Insert Shift:=xlToRight
        'Range("K8").FormulaR1C1 = "SAP Item"

        'Columns("L:L").Insert Shift:=xlToRight
        'Range("L8").FormulaR1C1 = "Envoyer"

        'Rows("50:50").Insert Shift:=xlDwon
        'Rows("50:51").Interior.ColorIndex = 45
 wb.Close
 ThisWorkbook.Save
 ChoixFichier.Hide

End Sub

Bonsoir,

sans vouloir être pénible, mais vous posez une question, puis vous mettez en résolue... ou est donc la solution ?

Pensez à tous ceux qui cherche à faire une chose similaire et qui tombe sur votre post, il est résolue et PAF ! pas de solution !!!

@ bientôt

LouReeD