Bonsoir christophe,
j'ai déjà essayé cette façon et là tout est en rouge dans ma macro !!
voici modifiée :
Private Sub CommandButton13_Click()
Sheets('Heures').Select
Range('E4:J55,E58:J109,E112:J163,E165:J217,E220:J271, _
E274:J325,E328:J379,E382:J433,E436:J487,E490:J541,E544:J595,E598:J649,E652:J703, _
E706:J757,E760:J811,E814:J865,E868:J919,E922:J973,E976:J1027, _
E1030:J1081,E1084:J1135,E1138:J1189,E1192:J1243,E1246:J1297, _
E1300:J1351,E1354:J1405,E1408:J1459,E1461:J1513,E1515:J1567, _
E1570:J1621,E1624:J1675,E1678:J1729,E1732:J1783,E1786:J1837, _
E1840:1891,E1894:J1945,E1948:J1999,E2002:J2053,E2056:J2107, _
E2110:J2161,E2164:J2215,E2218:J2269,E2272:J2323,E2326:J2377, _
E2380:J2431,E2434:J2485,E2488:J2539,E2542:J2593,E2596:J2647, _
E2650:J2701,E2704:J2755 ').Select
Selection.ClearContents
Range('A1').Select
End Sub
merci pour l'aide qui sera apportée
@+
Nanard