importer des donnees colonnes discontinues

Sub Import2()
Dim nodeb As Long
Dim nofin As Long
Dim moi As String
Dim Plage As Range
moi = ActiveWorkbook.Name
Dim LeNom As String
Application.Dialogs(xlDialogOpen).Show
If ActiveWorkbook.Name = moi Then
  MsgBox "Base abandonnée!"
  Exit Sub
End If
LeNom = ActiveWorkbook.Name
nodeb = InputBox("Ligne de debut ?", "identification", "2")
nofin = InputBox("Ligne de fin ?", "identification", "6500")
    Range("A2").Select
    Set Plage = ActiveWorkbook.ActiveSheet.Range("D" & nodeb & ":D" & nofin & ",L" & nodeb & ":L" & nofin & ",Q" & nodeb & ":Q" & nofin)
    Plage.Copy
With Workbooks(moi).Sheets("Base")
    Range("A2").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("A1").Select
End With
Workbooks(LeNom).Close
Sheets("Base").Select
End Sub

Sub Import2()
Dim nodeb As Long
Dim nofin As Long
Dim moi As String
moi = ActiveWorkbook.Name
Application.Dialogs(xlDialogOpen).Show
If ActiveWorkbook.Name = moi Then
  MsgBox "Base abandonnée!"
  Exit Sub
End If
nodeb = InputBox("Ligne de debut ?", "identification", "2")
nofin = InputBox("Ligne de fin ?", "identification", "6500")
Set Plage = ActiveWorkbook.ActiveSheet.Range("D" & nodeb & ":D" & nofin & ",L" & nodeb & ":L" & nofin & ",Q" & nodeb & ":Q" & nofin)
Plage.Copy Destination:=Workbooks(moi).Sheets("Base").Range("A2")
ActiveWorkbook.Close
Range("A1").Select
End Sub

Sub Import2()
Dim nodeb As Long
Dim nofin As Long
Dim moi As String
Dim Plage As Range
moi = ActiveWorkbook.Name
Dim LeNom As String
Application.Dialogs(xlDialogOpen).Show
If ActiveWorkbook.Name = moi Then
  MsgBox "Base abandonnée!"
  Exit Sub
End If
LeNom = ActiveWorkbook.Name
nodeb = InputBox("Ligne de debut ?", "identification", "2")
nofin = InputBox("Ligne de fin ?", "identification", "6500")
    Range("A2").Select
    Set Plage = ActiveWorkbook.ActiveSheet.Range("D" & nodeb & ":D" & nofin & ",L" & nodeb & ":L" & nofin & ",Q" & nodeb & ":Q" & nofin)
    Plage.Copy
With Workbooks(moi)
  .Activate
  .Sheets("Base").Select
  Range("A" & Rows.Count).End(xlUp).Offset(1, 0).Select
  Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
      :=False, Transpose:=False
  Range("A1").Select
End With
Workbooks(LeNom).Close
End Sub