bonjour JFL, Galopin01,saboh12617,
pour un csv ou txt, ici c'est lire & filtrer, mais cela depend de ce que vous voulez ...
Sub Lire_CSV()
With CreateObject("scripting.filesystemobject")
sfilename = ThisWorkbook.Path & "\Basem.csv" 'chemin et nom du fichier
arr = Filter(Split(.opentextfile(sfilename).readall, vbCrLf), "ff", 1, 1) 'lire fichier et filtrer toutes les lignes qui contiennent "ff"
MsgBox Join(arr, vbLf) 'résultat
End With
End Sub