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