Private Sub CmdApercu_Click()
Dim X As Long, Y As Integer, Z As Long
Dim Tablo()
Tablo = Array("A", "B", "I", "K", "N")
With Feuil26
.Range("A2:N65536").ClearContents
For X = 0 To Me.appel.ListCount - 1
Z = Me.appel.List(X, 4)
For Y = 0 To UBound(Tablo)
.Cells(X + 2, Y + 1) = Feuil23.Cells(Z, Tablo(Y))
Next
Next
Me.Hide
.PrintPreview
Me.Show
End With
End Sub