salut et comme çà:
Sub RAZValeurs()
Sheets("NbaJour").Select
Range("B5:H740,L5:R740,V5:AB740,AF5:AL740,AV5:BK740,BO5:CD740,CH5:CT740,CX5:DP740").Select
Selection.ClearContents
Sheets("NbaSemaine").Select
Range("B5:H120,L5:R120,V5:AB120,AF5:AL120,AV5:BK120,BO5:CD120,CH5:CT120,CX5:DP120").Select
Selection.ClearContents
Sheets("NbaMois").Select
Range("B5:H28,L5:R28,V5:AB28,AF5:AL28,AV5:BK28,BO5:CD28,CH5:CT28,CX5:DP28").Select
Selection.ClearContents
Sheets("NbaMoisSeb").Select
End Sub