Sub ExtractionCodeSurPlusieursOnglets()
Dim ShCible As Worksheet
Dim ListeDesOngletsATraiter As Variant
Dim k As Integer
Dim i As Integer, j As Integer, l As Integer, Tab_Feuil(), Liste()
l = ThisWorkbook.Worksheets.Count - 7
For i = 7 To ThisWorkbook.Worksheets.Count
If Sheets(i).Visible Then
ReDim Preserve Tab_Feuil(j)
Set Tab_Feuil(j) = Sheets(Sheets(i).Name) '<----- ligne complétée
j = j + 1
End If
Next
Set ShCible = Sheets("Total Chant")
With ShCible
.Range(.Cells(1, 1), .Cells(.Rows.Count, 2)).ClearContents
End With
ListeDesOngletsATraiter = Tab_Feuil
For k = 0 To l
Extraction_Code ListeDesOngletsATraiter(k)
RestituerLaMatrice ShCible
Next k
' Tri de l'onglet cible....
Set ShCible = Nothing
End Sub