Le Chemin des Bonshommes a été, du XI e au XVI e siècle, un axe économique important qui unissait l'Ariège et le Bergueda. Les derniers Cathares en exil, fuyant la prison, la spoliation et la mort, utilisaient tout naturellement cet itinéraire pour aller chercher refuge en Catalogne. Par les montagnes, les cols, allant de maison amie en abrie précaire, ils gagnaient les terres catalanes vers l'Alt d'Urgel, la Cerdagne ou le Bergueda.

En suivant cet itinéraire pyrénéen transfrontalier, vous irez par les mêmes chemins, découvrirez les mêmes paysages que ces hommes et ces femmes poursuivis par l'inquisition et, si vous prenez votre temps, vous sentirez le souffle de l'histoire.

A pied (en une dizaine de jours environ), à cheval ou à VTT, cette randonnée exceptionnelle vous mènera à la rencontre de sites inoubliables.

Extrait du topo guide Sur les traces des Cathares le Chemin des Bonshommes, édition FFRP Réf.1097 - 1999 

<% Function ParseBody(strText) strText = Replace(strText, Chr(13), "
") ParseBody = strText End Function Dim myConnString Dim myConnection Dim mySQL Dim objRS Dim strBody Dim strBody1 Dim strBody2 Dim strBody3 Dim strBody4 Dim strBody5 Dim strBody6 Dim strBody7 Dim strBody8 Dim strBody9 Dim strBody10 Dim strBody11 Dim strBody12 Dim strBody13 Dim strBody14 Dim strBody15 Dim strBody16 Dim strBody17 Dim strBody18 Dim total dim xurl dim compt dim deb dim fin dim objConn dim TAB1 dim TAB2 dim TAB3 dim TAB31 dim TAB4 dim TAB42 dim TAB5 dim TAB50 dim TAB51 dim TAB525 dim TAB515 dim TAB516 dim TAB6 dim TAB7 dim TAB8 dim TABLIEN dim saut2 saut2="
" dim V_AN dim V_MOIS dim M_MONTH dim TE1 dim TE2 dim TE3 dim TE4 TE1="

" V_AN= Request("S1") if V_AN="" then V_AN=CStr(Year(Now)) 'style="font-family: Arial; font-size: 10 pt" TAB1="" TAB2="" TAB3="" TAB4= "" TAB42= "" TAB5="" TAB6= "" TAB7="
" TAB31="" TAB525="" TAB515="" TAB516="" TAB50="" TAB51="
" Const adOpenStatic = 3 Const adLockReadOnly = 1 response.write TE1 & TE3 & "prt" & TE4 & "Les partenaires du Chemin des Bonshommes : " & TE2 Set objConn = Server.CreateObject("ADODB.Connection") Set objRS = Server.CreateObject("ADODB.Recordset") strDSN = "DSN=equipyr" objConn.Open strDSN strSQL = "SELECT * FROM GR107 Where (STP LIKE '%prt%') order by Etape_NS Asc" vide= " " vide4= " -> " vide5= "       " vide6="" vide2= "/" dim F1 dim F2 F1="

" F2= "

" dim M2 objRS.Open strSQL, objConn, adOpenStatic,adLockReadOnly Do Until objRS.EOF = True M1= F1 & objRS("Enseigne").Value & F2 'if objRS("STP").Value = "oui" then strBody1= TAB1 & TAB2 & TAB3 & M1 & TAB31 M2= F1 & objRS("commune").Value & F2 strBody1= strBody1 & TAB516 & M2 & TAB51 strBody5= TAB525 & F1 & "" & "En savoir plus" & "" & F2 & TAB51 TABLIEN = F1 & "" & "e-mail" & "" & F2 strBody6= TAB516 & TABLIEN & TAB51 strBody7= TAB515 & F1 & objRS("teleph").Value & F2 & TAB51 strBody17= TAB6 & TAB7 strBody18=strBody1 & strbody5 & strBody6 & strbody7 & strBody17 response.write strBody18 'end if objRS.Movenext Loop objRS.close strBody1= TAB1 & TAB2 & TAB3 & "" & TAB31 strBody18=strBody1 & strBody17 response.write strBody18 response.write strBody18 response.write strBody18 objConn.close %>