Macro pour selection multiple

Bonjour à tous,

j'ai besoin d'aide pour simplifier l'écriture d'une macro, si c'est possible !

J'aimerais un code qui incrémente automatiquement de 5 les lignes jusqu'à 250, les colonnes ne bougent pas

Merci de votre aide

Jean-François

Voici mon code

Range("F3:L4,M3:S4,T3:Z4,AA3:AG4,AH3:AN4,AO3:AU4,AV3:BB4").Select

With Selection

'J'écris les instructions ici

End With

Range("F8:L9,M8:S9,T8:Z9,AA8:AG9,AH8:AN9,AO8:AU9,AV8:BB9").Select

With Selection

'J'écris encore les mêmes instructions ici

End With

Range("F13:L14,M13:S14,T13:Z14,AA13:AG14,AH13:AN14,AO13:AU14,AV13:BB14").Select

With Selection

'J'écris encore les mêmes instructions ici

ET JE CONTINUS JUSQU'A LA LIGNE 250 !

Bonjour et bienvenue sur le forum

Essaie ce code :

    For i = 0 To 250 Step 5
        Range("F3:L4,M3:S4,T3:Z4,AA3:AG4,AH3:AN4,AO3:AU4,AV3:BB4").Offset(i, 0).Select
         With Selection

        'J'écris les instructions ici

         End With
    Next i

Bye !

Merci beaucoup! je vais essayer de suite !

Je viens de tester le code que tu m'as donné, il fonctionne en partie, mes plages ont des cellules fusionnées et du coup j'ai le message:

"La fusion des cellules permet de conserver uniquement la valeur supérieure gauche, Les autres valeurs seront ignorées"

Sans ton document, je ne vois pas ce que je peux faire de plus.

Essaie de supprimer les fusions de cellules : ce sont les bêtes noires des macros !

Bye !