Bonjour
ActiveCell.Offset(1, 0).Rows("1:1").EntireRow.Select
Selection.Delete Shift:=xlUp
Ton code est assez fantaisiste et mélange un peu tout
Rows(1).delete
doit faire la même chose.
( ActiveCell.Offset(-1, 0).Range("A1:M1").Select) là où j'ai le problème au lieu de la plage ("A1:M1") je veu que la cellule "M1" soit détecter automatiquement
Range("A1").Resize(1, Cells(1,1).SpecialCells(xlCellTypeLastCell).Column).Select
ActiveCell.Range("A1:M251").Select
Range("A1").Resize(Cells.SpecialCells(xlCellTypeLastCell).Row, Cells.SpecialCells(xlCellTypeLastCell).Column).Select
Toujours zen