Private Sub Workbook_Open()
Dim vFichiers As Variant, vFileToOpen As Variant
Dim intLigne As Variant
Dim strMainFile As String
strMainFile = ActiveWorkbook.Name
vFichiers = Application.GetOpenFilename('*.xls, *.xls', , 'Tous pour un et un pour tous', , True)
Application.ScreenUpdating = False
With ActiveWorkbook.Sheets(1)
For Each vFileToOpen In vFichiers
Workbooks.Open vFileToOpen
'F : avec les lignes 11,13,17,19,21,30,109
For intLigne = 1 To 7 ' Les 7 lignes demandées
Select Case intLigne
Case 1
intLineRef = 11
Case 2
intLineRef = 13
Case 3
intLineRef = 17
Case 4
intLineRef = 19
Case 5
intLineRef = 21
Case 6
intLineRef = 30
Case 7
intLineRef = 109
End Select
Cells(intLineRef, 6).Copy Destination:=.Cells(.Cells(65536, intLigne).End(xlUp).Row, intLigne)
ActiveWorkbook.Close
Next intLigne
Next vFileToOpen
End With
Application.ScreenUpdating = True
End Sub
