Optimiser et reduire un code

Bonsoir à tous,

quelqu'un peut m'aider en me donnant l'écriture pour réduire mon code pour re dimensionner mes cellules ???

En vous remerciant.

Salut Eric,

'
Dim rPlage As Range
Dim R1 As Range
Dim R2 As Range
'
Set R1 = Columns(2)
Set R2 = Columns(4)
Set rPlage = Union(R1, R2)
'Set rPlage = Range(Columns(2), Columns(4)) 'appliquerait la largeur aux colonnes de 2 à 4
rPlage.ColumnWidth = 30
'
Set R1 = Rows(10)
Set R2 = Rows(20)
Set rPlage = Union(R1, R2)
'Set rPlage = Range(Rows(10), Rows(20))     'appliquerait le traitement aux lignes de 10 à 20
rPlage.RowHeight = 41
'

Et grâce à toi, j'ai appris quelque chose de plus! Merci!

A+

Super,

je te remercie.

Bonne journée