Bonjour Canard , bonjour Charly
Tu peux tester cette macro
Sub exportFeuille_versFichierTexte()
Dim i As Long
Dim Resultat As String
Dim j As Byte
Open 'C:\\\\\\\\Ma carniliste.txt' For Output As #1
For i = 3 To 1000 'boucle sur les lignes
For j = 1 To 2 'boucle sur les colonnes
Resultat = Resultat & Cells(i, j) & ';' 'adaptez eventuellement le separateur ';'
Next j
Resultat = Left(Resultat, Len(Resultat) - 1)
If Resultat <> ';' Then Print #1, Resultat
Resultat = ''
Next
Close #1
End Sub
Bonne journée
MichelXld