Exporter des colonnes depuis un fichier externe dans la 1ere colonne vide

Bonjour,

j'ai besoin d'aide svp,

j'aimerais créer une macro qui exporte des données d'un fichier excel externe grace à userform, des colonnes précises seront à exporter et à coller dans mon fichier.

Le souci c'est que j'aimerai que l'exportation soit de la manière suivante

si la cellule B2 = "vague 1" alors j'aimerai copier les colonnes du fichier 1 et les collés dans le fichier 2 dans les colonne D à O

Si la cellule B2 = "Vague 2" alors copier les colonnes du fichier 1 et les collés dans le fichier 2 dans les colonne juste à droite P à AA

et ainsi de suite

j'ai essayer avec le code suivant mais ça ne marche pas

Private Sub Valider_Click()

Dim wb2 As Workbook
Dim ws2 As Worksheet
Dim nom_fichier As String
Dim chemin As String
Dim ligne_insertion As Integer
Dim b(100, 10) As String

Application.ScreenUpdating = False
Import.Hide
nom_fichier = fichier.Value

Sheets("ENLEVEMENT PAR SITE").Visible = True

chemin = "J:\Projets\" & nom_fichier & ".xls"

 Set wb2 = Workbooks.Open(chemin)
 Set ws2 = wb2.Worksheets("ENLEVEMENT PAR SITE")

'copier coller data dans l' onglet enlèvement par site'

If Range("B2") = "vague 1" Then
    ws2.Range("AN6:AY3000").Select
    Selection.Copy
    ThisWorkbook.Sheets("ENLEVEMENT PAR SITE").Range("D7").Select
        Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
        MsgBox ("ok")
End If

If Range("B2") = "vague 2" Then
    ws2.Range("AN6:AS3000").Select
    Selection.Copy
    ThisWorkbook.Sheets("ENLEVEMENT PAR SITE").Range("P7").Select
        Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
        MsgBox ("ok")
End If

Application.ScreenUpdating = True
End Sub

Vous pouvez m'aider svp. merci d'avance

Hello

(je ne connais rien à VBA et j'essaie toujours de faire sans).

Pourquoi Userform obligatoire? Ca ne peut pas se faire avec Query power ?