Formule toute simple

Bonjour a tous.

Afin d'allégé le contenue de mon programme, j'ai besoin de votre aide (Je suis trop nul en VB pour y arriver sans vous )

Mon code:

     Range("B17:H17").Select
        Selection.Merge
     Range("B18:H18").Select
        Selection.Merge
     Range("B19:H19").Select
        Selection.Merge
     Range("B20:H20").Select
        Selection.Merge
     Range("B21:H21").Select
        Selection.Merge
Etc.

Je dois le faire jusqu'a B80:H80

Donc je cherche un code le permettant du genre:

For i = 17 to 80
Range("B&i:H&i).select
Next i

Si vous pouviez m'aider, se serait gentil

Merci

Peri

bonjour,

For i = 17 to 80 
Range("B" & i & ":H" & i).Merge 
Next i

A+

Merci, c'est nickel

Merci!