Effacer plusieurs cellules sur 2 feuilles

[maval]

Bonjours,

J'ai un classeurs et j'aimerais effacer plusieurs cellules sur 2 feuilles

1er feuille "Inscription" D3:E100
2éme feuille "Données" A4: T100

Je vous remercie de votre aide

Cordialement

Maval

 

[maval]

Re : Effacer plusieurs cellules sur 2 feuilles

Re,

J'ai trouvé

Sub Effacer_Tous()

vreponse = MsgBox("Attention, vous allez tout effacer (Noms Scores et Tables!)" & Chr(10) & "Vous voulez continuer?", _
vbYesNo, "ATTENTION!")
If vreponse = vbYes Then

    Application.ScreenUpdating = False

Sheets("Inscription").Range("C3:D200").ClearContents
Sheets("Données").Range("A4:T200").ClearContents

 Application.EnableEvents = True

End If

End Sub

Bonne journée

Maval