J'aimerais avoir une macro qui efface toutes les feuilles sauf la feuille qui est active.
Avec le code suivant ca devrait marcher sauf que je ne sais pas commment trouver la valeur de I pour la feuille courante. Je vais ensuite ajouter un IF pour deleter les feuilles qui n'ont pas le I de la page courante au départ.
Sub macro()
Dim I As Byte
For I = 1 To Worksheets.Count
Sheets(I).Delete
Next I
End Sub
Avec le code suivant ca devrait marcher sauf que je ne sais pas commment trouver la valeur de I pour la feuille courante. Je vais ensuite ajouter un IF pour deleter les feuilles qui n'ont pas le I de la page courante au départ.
Sub macro()
Dim I As Byte
For I = 1 To Worksheets.Count
Sheets(I).Delete
Next I
End Sub