Sub Copier_Onglets()
Dim Onglet As String
Dim i As Integer, k As Integer
Dim Deb As Long
Dim TVar() As String
Dim Ts() As String
k = 1
For i = 3 To ActiveWorkbook.Sheets.Count
Onglet = Sheets(i).Name
If Onglet = "LISTE" Or Onglet = "TRAMES" Then GoTo Fin
With Sheets(Onglet)
ReDim Preserve TVar(k)
TVar(k) = Onglet & "~" & .Range("C9") & "~" & .Range("C11") & "~" & .Range("C12") & "~" & .Range("C25") _
& "~" & .Range("C26") & "~" & .Range("C20") & "~" & .Range("C41") & "~" & .Range("C23")
k = k + 1
End With
Fin:
Next i
With Sheets("LISTE")
For i = 1 To UBound(TVar)
Deb = Range("A1", Range("A65535").End(xlUp)).Rows.Count + 1
Ts = Split(TVar(i), "~")
Cells(Deb, 1) = Ts(0)
Cells(Deb, 1).Offset(, 1) = Ts(1)
Cells(Deb, 1).Offset(, 2) = Ts(2)
Cells(Deb, 1).Offset(, 3) = Ts(3)
Cells(Deb, 1).Offset(, 4) = Ts(4)
Cells(Deb, 1).Offset(, 5) = Ts(5)
Cells(Deb, 1).Offset(, 6) = Ts(6)
Cells(Deb, 1).Offset(, 7) = Ts(7)
Cells(Deb, 1).Offset(, 8) = Ts(8)
Next i
End With
End Sub