Bonjour à vous deux.
Votre fichier de données contient x enregistrements de 50 champs. Celui qui contient les numéros de téléphone est le 33e.
Vous pouvez donc l'ouvrir comme un fichier texte à l'aide d'une macro et ne récupérer le contenu de ce champ.
En admettant que votre fichier de données s'appelle data.csv et se trouve dans le dossier c:\csv la macro sera :
Sub Macro1()
Dim i As Integer, ligne As Integer
Dim ff As Integer, data As String
ff = freeFile
Open "C:\Temp\data.csv" For Input As #ff
While Not EOF(ff)
For i = 1 To 50
Input #ff, data
If i = 33 Then
ligne = ligne + 1
Cells(ligne, 1) = data
End If
Next i
Wend
Close #ff
End Sub