Simplifier la sélection de plusieursfeuilles

Bonjour à toutes et à tous

Je voudrais sélectionner 10 feuilles pour en même temps pour faire une remise à zéro.

J'ai utiliser l'assistant macro pour cela cela mais le résultat me paraît lourd, même s'il cela fonctionne.

Comment peux t on écrire cela plus simplement en VBA.

Voici le résultat que j'ai obtenu avec l'assistant.

Sheets("1ér_Tour").Select

[D2].Select

Merci d'avance pour votre aide.

Bonjour,

Une façon de faire :

Sub traitement()

Sheets("1ér_Tour").Select
Call Vide_Feuilles

Sheets("2ème").Select
Call Vide_Feuilles

' etc
End Sub

Sub Vide_Feuilles()
Application.ScreenUpdating = False

With ActiveSheet
    .Range("A104:A204").ClearContents
    DebChronoUp = False
    DebChronoDown = False
    HeureDep = #12:00:00 AM#
    .Range("M2") = Hour(HeureDep)
    .Range("N2") = Minute(HeureDep)
    .Range("O2") = Second(HeureDep)
    .Range("A4:C204").Interior.ColorIndex = xlNone
    .Range("C4:C103").ClearContents
    .Range("E4:E103").ClearContents
    .Range("A104:A203").Borders(xlDiagonalDown).LineStyle = xlNone
    .Range("A104:A203").Borders(xlDiagonalUp).LineStyle = xlNone
    .Range("A104:A203").Borders(xlEdgeLeft).LineStyle = xlNone
    With .Range("A104:A203").Borders(xlEdgeTop)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlMedium
    End With
    .Range("A104:A203").Borders(xlEdgeBottom).LineStyle = xlNone
    .Range("A104:A203").Borders(xlEdgeRight).LineStyle = xlNone
    .Range("A104:A203").Borders(xlInsideVertical).LineStyle = xlNone
    .Range("A104:A203").Borders(xlInsideHorizontal).LineStyle = xlNone
    With .Range("A104:A203").Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .ThemeColor = xlThemeColorDark1
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
    .Range("D2") = ""
    .Range("D2").Select
End With
End Sub

Bastr

Bonsoir bastr

Merci pour ta réponse. Test concluant. Dire que c'est si simple.

Encore merci

A te relire.

Ldopa