Famille de feuilles de calcul Microsoft avec des outils pour l’analyse, le graphique et la communication des données.
Bon, en fin de compte je pense avoir trouvé avec ça, mais si quelqun à une variante ou une amélioration à me proposer, je reste preneur !
Sub test_domi01()
Dim fe As Worksheet
For Each fe In Worksheets
If Not IsError(Application.Match(fe.Name, Range("lst\_feuilles"), 0)) Then
fe.Range("B2:F20") Delete
End If
Next fe
End Sub
Domi ;o)