'Import
Dim nom$, WBKSource As Workbook
With Application.FileDialog(msoFileDialogOpen)
.Title = "Suzanne ouvre toi"
.Filters.Clear
.Filters.Add "SuperTableur", "*.xlsX,*.xlsm, *.xls"
.AllowMultiSelect = False
If .Show <> 0 Then
nom = .SelectedItems(1)
Set WBKSource = Workbooks.Open(nom)
With WBKSource
.Worksheets.Copy Before:=ThisWorkbook.Sheets(1)
.Close False
End With
Else
MsgBox "Heeeey t'as oublié chosequelle ! Qiuiche ", , "dô_Ôb": Exit Sub
End If
End With
'Copier Coller
Sheets("Sheet1 (2)").Select
Sheets("Sheet1 (2)").Range("b23").Select
Selection.Copy
Sheets("Sheet1").Activate
Sheets("Sheet1").Range("C65536").End(xlUp).Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:= _
xlNone, SkipBlanks:=False, Transpose:=False
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False