aperçu

Sub VisibleSheets()
Dim AvailableSheet As Worksheet

    For Each AvailableSheet In ActiveWorkbook.Worksheets
        If AvailableSheet.Visible = True Then
           AvailableSheet.Select
           Exit For
        End If
    Next
ActiveWindow.SelectedSheets.PrintPreview

End Sub

Sub VisibleSheets()
  
  Dim AvailableSheet As Worksheet
  Dim t() As String
  Dim i As Byte
  i = 0
  
  For Each AvailableSheet In ActiveWorkbook.Worksheets
    If AvailableSheet.Visible = True Then
      ReDim Preserve t(i)
      t(i) = AvailableSheet.Name
      i = i + 1
    End If
  Next
  
  Sheets(t()).Select
  ActiveWindow.SelectedSheets.PrintPreview

End Sub