Sub CopyCoord()
'Met en mémoire ("presse papier") les coordonnées en degrés décimaux ou sexagésimaux pour être ensuite collées dans le Bloc Note
Dim cadena$, MyData As New DataObject
If Not Intersect(Selection, [Col_DD1]) Is Nothing Then
cadena = Selection & "°" & " | " & Int(Selection.Offset(0, 2)) & "°" & " " & Int(Selection.Offset(0, 3)) & "'" & " " & Round(Selection.Offset(0, 4), 3) & "''" & " " & Selection.Offset(0, 5)
MyData.SetText cadena
MyData.PutInClipboard
End If
End Sub