Bonjour,
 
J'essaie de faire la chose suivante:  
Dans une feuille Excel, à partir de la cellule 14 de la colonne A, couper le contenu de cette cellule, le coller 3 cellules plus bas, et recommencer avec un step 11 jusqu'à la millième ligne. J'ai écrit cela ainsi:
 

 
Ceci donne un message d'erreur 1004, objet Range non reconnu avec la méthode _global.  
J'ai également essayé une variante avec Offset, infructueuse elle aussi:
 

 
Voici en somme l'action qui s'enregistre lorsque j'utilise le générateur de macro, et avec laquelle il faudrait faire une boucle:
 

Merci d'avance pour toute suggestion!!!
 

Juste en suggestion, et sans essai de vérification, si tu remplaçais :
Range("A & i + 3" )
par
Range("A" & (i+3))
et idem pour le premier Range, cela devrait marcher mieux.

Pas de changement lors du déroulement. Je crois que c'est l'objet Range qui pose problème. Il faudrait qqch comme ActiveCells(14, 1).Select

La solution trouvée en tatonnant un peu par hasard...
 
Sub Intervertir()
 
For i = 8 To 1000 Step 11
 
    Cells(i, 1).EntireRow.Select
    Selection.Cut
    Cells(i + 3, 1).EntireRow.Select
    ActiveSheet.Paste
     
         
    Next i
     
    Call Suppression
     
End Sub
 
Merci pour les suggestions!

Tant mieux
 
Ceci-dit, es-tu sûr d'avoir également modifié le premier Range :
Range("A & i" ).Select => Range("A" & i).Select
 
Je viens de faire de test de mon côté, et avec ces modifs, cela semble fonctionner.
 
Bon courage pour la suite.

C'est vrai, ta version fonctionne également. J'avais effectivement omis de changer le premier Range, ce qui continuait donc à générer le message d'erreur....
Bonne journée, et merci pour le soutien!