Sub essai()
Dim i As Integer, j As Integer, Tab_Feuil(), Liste()
For i = 7 To 9
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
Liste = Tab_Feuil
'pour voir
For i = 0 To UBound(Liste): MsgBox (Liste(i).Name): Next
End Sub