Bonjour,
en début d'année, je dois "purger" un fichier de ses données pour préparer la nouvelle.
J'utilise ce code, mais je le trouve assez lourd..
Peux t'on simplifier ??

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
'Sélectionne la feuille systématique, enlève la protection et Efface les données
Sheets("Systématiques").Select
    Sheets("Systématiques").Unprotect ("pat55")
        Raz
    'Range("c5").ClearContents
    [c5] = Now()
    Sheets("Systématiques").Protect ("pat55")
Sheets("Systématiques").EnableSelection = xlUnlockedCells
 
'Sélectionne la feuille systématique, enlève la protection et Efface les données
Sheets("Parrainages").Select
    Sheets("Parrainages").Unprotect ("pat55")
        Raz
    Sheets("Parrainages").Protect ("pat55")
Sheets("Parrainages").EnableSelection = xlUnlockedCells
 
'Sélectionne la feuille systématique, enlève la protection et Efface les données
Sheets("Audits").Select
    Sheets("Audits").Unprotect ("pat55")
        Raz
    Sheets("Audits").Protect ("pat55")
Sheets("Audits").EnableSelection = xlUnlockedCells
 
'Retour sur Systématiques
    Sheets("Systématiques").Select
    Range("B11").Select
Merci pour votre aide
Patrick