bonjour carlos le forum une macro qui marche si tu peus t en inspirer Sub chercher1()
Dim Filt As String
Dim Fichier As Variant
Dim IndexFiltre As Integer
Dim Titre As String
Filt = 'Fichiers texte (*.txt),*.txt,' & _
'Fichiers Lotus (*.prn),*.prn,' & _
'Fichiers séparés par des virgules (*.csv),*.csv,' & _
'Fichiers ASCII (*.asc),*.asc,' & _
'Tous les fichiers (*.*),*.*'
IndexFiltre = 5
Fichier = Application.GetOpenFilename _
(FileFilter:=Filt, _
FilterIndex:=IndexFiltre, _
Title:=Titre)
If Fichier = False Then
MsgBox 'Aucun fichier n'a été sélectionné.'
Exit Sub
End If
MsgBox Fichier
End Sub'salutations