Private Sub CommandButton1_Click()
Dim MonFichier As String
MonFichier = Application.GetOpenFilename
Workbooks.Open Filename:=MonFichier
MonClasseur = ActiveWorkbook.Name
Workbooks(MonClasseur).Activate
With Sheets(1)
derlig = Range("A" & Rows.Count).End(xlUp).Row
dercol = Cells(1, Cells.Columns.Count).End(xlToLeft).Column
End With
Set MonTableau = Range("A1:" & lettre_col(dercol) & derlig).Copy
Windows("Automatisation.xlsm").Activate
Range("BP4").Select
ActiveSheet.Paste
End Sub