Bonjour,
Teste ceci :
Sub Coordonnées()
Dim Coord, lnCoord(), i%, c%, chF$
Dim fso As New Scripting.FileSystemObject
Dim Ftxt As Scripting.TextStream
Coord = ActiveSheet.Range("A1").CurrentRegion
For i = 2 To UBound(Coord)
ReDim Preserve lnCoord(c)
lnCoord(c) = WorksheetFunction.Index(Coord, i, 0)
c = c + 1
Next i
For i = 0 To c - 1
lnCoord(i) = "p;" & Join(lnCoord(i), ";")
Next i
chF = ThisWorkbook.Path & "\Coordonnées.txt"
Set Ftxt = fso.CreateTextFile(chF)
For i = 0 To c - 1
Ftxt.WriteLine lnCoord(i)
Next i
Ftxt.Close
End Sub
La procédure récupère tes lignes de coordonnées... les place dans un fichier texte qui est enregistré dans le même dossier que ton classeur.
Une fois exécutée, tu iras dans le dossier ouvrir le fichier texte que j'ai nommé Coordonnées.txt et tu vois si le résultat correspond à ce qu'il te faut... Sinon tu pourras certainement adapter.
Si tu as une erreur dès lancement de la macro sur Scripting.FileSystemObject, c'est qu'il te faut aller dans Outils>Références... (éditeur VBA), chercher la réf. Microsoft Scripting Runtime et la cocher.
Cordialement.