Sub ImportMeteo()
Dim Brut As Workbook, WSBrut As Worksheet, Dest As Workbook, WSDest As Worksheet
Dim MonTab, DerlBrut As Long, DerlDest As Long
FicImport = Application.GetOpenFilename("Fichiers Excel (*.xls), *.xls")
If FicImport <> False Then
Set Brut = Workbooks.Open(FicImport)
Else
Exit Sub
End If
'Set Brut = Workbooks("Donnée brutes.xls")
Set WSBrut = Brut.Worksheets(1) 'première page du fichier à ouvrir
Set Dest = ThisWorkbook
Set WSDest = Dest.Worksheets("Feuil1") ' à adapter
DerlBrut = WSBrut.Range("A" & Rows.Count).End(xlUp).Row
With WSBrut.Range("A2:U" & DerlBrut)
MonTab = Application.Index(.Value, Evaluate("row(1:" & DerlBrut - 1 & ")"), Array(1, 2, 3, 4, 5, 6, 11, 13, 16, 21))
End With
DerlDest = WSDest.Range("A" & Rows.Count).End(xlUp).Row + 1
WSDest.Range("A" & DerlDest).Resize(UBound(MonTab, 1), UBound(MonTab, 2)) = MonTab
Brut.Close
End Sub