[VBA]incrémenter un range en une instruction

Bonjour à tous,

J'incrémente cellule après cellule comme ça
sheets(Feuil1").[J2] = sheets(Feuil1").[J2] + 1
sheets(Feuil1").[J3] = sheets(Feuil1").[J3] + 1
sheets(Feuil1").[J4] = sheets(Feuil1").[J4] + 1

Je vais avoir plus de cells et je voudrais savoir si on ne peut pas
incrémenter le range en une seule instruction ?

Et même si c'est possible de se passer du
feuil1.j2 = feuil1.j2 +1
par un
sheets(Feuil1").[J2] +1

Il me semble avoir vu une telle simplification à base de crochet, mais je ne
la retrouve pas.
Merci pour l'aide simplificatrice
--
à+twinley