Bonjour,
dans la boite de dialogue ouvrir
je voudrais afficher que les fichiers provenant d'un tableau

exemple:
Set fd = Application.FileDialog(msoFileDialogFilePicker)
y = 0
For i = 3 To Dercell
If WsHF.Range("B" & i) = "Finale" Then
ReDim Preserve Tbl(y)
Tbl(y) = WsHF.Range("A" & i) & " " & WsHF.Range("F" & i) & " " & WsHF.Range("I" & i)
y = y + 1
End If
Next i

With fd
là, je coince
'je voudrais afficher que les fichiers provenant de Tbl()
end with

merci d'avance