Appliquer une fonction sur plusieurs feuilles VBA

Bonjour tt le monde,

Je veux appliquer une fonction sur plusieurs feuilles.

Sheets("Test 1").Range('"A1").value = 1000

Sheets("Test 2").Range('"A1").value = 1000

Sheets("Test 3").Range('"A1").value = 1000

Sheets("Test 4").Range('"A1").value = 1000

Sheets("Test 5").Range('"A1").value = 1000

Merci d'avance.

Bonjour,

dim sh as worksheet

for each sh in worksheets

sh.range("A1").value=1000

next

Merci pour votre retour.

Mais je veux appliquer juste sur quelques feuilles dont le nom commence par le mot "Test"

dim sh as worksheet

for each sh in worksheets

if sh.name like "Test*" then sh.range("A1").value=1000

next