Sub Lance()
Application.MoveAfterReturnDirection = xlDown 'déplacement vers le bas
[A1].Select
MAJ
End Sub
Sub MAJ()
'se lance par le raccourci clavier Ctrl+m
If ActiveCell.Row <= Cells.SpecialCells(xlCellTypeLastCell).Row Then _
CreateObject("WScript.Shell").SendKeys "{F2}~^m" Else [A1].Select: Rows.Autofit
End Sub