With Sheets("Feuil1")
Set plage1 = ActiveSheet.Range("A1,A33,A65,A97,A129,A161,A193,A225,A257,A289,A321,A353,A385,A417,A449,A481,A513,A545,A577,A609,A641,A673,A705,A737,A769")
Set plage2 = ActiveSheet.Range("A801,A833,A865,A897,A929,A961,A993,A1025,A1057,A1089,A1121,A1153,A1185,A1217,A1249,A1281,A1313,A1345,A1377,A1409,A1441,A1473,A1505") ',A1537,A1569")
Set plage = Union(plage1, plage2)
Pge = 1
For Each cel In plage
....