bonjour à tous,j'ai un soucis certainement de syntaxe. J'essai de décaler toutes mes lignes de derlig à lignerougedata, dans le but d'insérer une nouvelle ligne de valeur à la ligne lignedatarouge+1. Le compilateur me signifie une erreur au niveau de la ligne du selection.entireRow...Est ce que quelqu'un pourrait m'éclairer s'il vous plait? merci et bonne journée.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
            'on commence par décaler toutes les données en partant du bas pour ne rien écraser:
            For LigneData = DerLig To LigneRougeData Step -1
                Range(1, LigneData).End(xlUp).Row
                Selection.EntireRow.Insert Shift:=xlDown
            Next LigneData
ce code ne fonctionne pas non plus:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
            For LigneData = DerLig To LigneRougeData Step -1
                'Range(1, LigneData).End(xlUp).Row
                Rows("LigneData: LigneData").Select
                Selection.EntireRow.Insert Shift:=xlDown
            Next LigneData