Bonjour
Est-il possible de simplifier cette macro(qui fonctionne )
D'avance je vous remercie
Sub effacer_les_resultatsTeT()
' effacer_les_resultats Macro
Sheets("Tour1").Select
If MsgBox("Voulez-vous vraiment effacer tous les résultats", vbYesNo, ("Demande de confirmation")) = vbYes Then Range("G3:I66,P3:R66").ClearContents
Range("G3:I66,P3:R66").ClearContents
Sheets("Tour2").Select
Range("G3:I66,P3:R66").ClearContents
Sheets("Tour3").Select
Range("G3:I66,P3:R66").ClearContents
Sheets("Tour4").Select
Range("G3:I66,P3:R66").ClearContents
Sheets("Tour5").Select
Range("G3:I66,P3:R66").ClearContents
End Sub