Public Sub TransfertDonnees()
Dim Tabtemp As Variant
Dim Ws_Source As Workbook
Dim Sht_Cible As Worksheet
Dim I As Byte
Dim Vers As String
Dim col As Byte
Dim Ligne As Integer
Dim L As Byte
col = 2
Const acopier As String = "G8:G12"
On Error GoTo fin
Set Ws_Source = Workbooks("07_08_v13.xls")
Set Sht_Cible = Workbooks("analyseur.xls").Sheets("collecte")
For I = 1 To 52
Tabtemp = Ws_Source.Sheets("sem" & Format(I, "00")).Range(acopier)
For Ligne = 1 To 357 Step 7
With Sht_Cible
.Cells(Ligne, col) = "sem" & Format(I, "00")
For L = 1 To UBound(Tabtemp, 1)
.Cells(Ligne + L, col) = Tabtemp(L, 1)
Next
End With
Next
col = col + 1
Next I
Erase Tabtemp
fin:
End Sub