Simplifier une macro

Bonjour,

Comme dit dans le titre je cherche à simplifier cette macro sachant que ce n'est qu'un exemple

puisque je m’arrête a

G19:I19,P19:R19   et je dois continuer ainsi de 2 en 2 jusque G65:I65,P65:R65

Sub effacer_les_resultatsDoublette()
If MsgBox("Voulez-vous vraiment effacer tous les résultats", vbYesNo, ("Demande de confirmation")) <> vbYes Then Exit Sub
For i = 1 To 5
    Sheets("TR" & i).Range("G3:I3,P3:R3 ,G5:I5,P5:R5 ,G7:I7,P7:R7 ,G9:I9,P9:R9 ,G11:I11,P11:R11 ,G13:I13,P13:R13 ,G15:I5,P15:R15 ,G17:I17,P17:R17 ,G19:I19,P19:R19 ").ClearContents
Next i
End Sub

Si vous avez une idée je suis preneur

Cordialement

bonjour,

une proposition

Sub effacer_les_resultatsDoublette()
    If MsgBox("Voulez-vous vraiment effacer tous les résultats", vbYesNo, ("Demande de confirmation")) <> vbYes Then Exit Sub
    For i = 1 To 5
        For j = 3 To 65 Step 2
            Sheets("TR" & i).Range("G" & j & ":I" & j).ClearContents
            Sheets("TR" & i).Range("P" & j & ":R" & j).ClearContents
        Next j
    Next i
End Sub

Bonjour h2so4

Ta proposition me convient parfaitement ,plus simple que ce que j'ai fait.

Merci

Cordialement