Sub AjoutBoutique() Dim Budget As Single
Dim DLig As Long, LigAjt As Long
' Initialisation
Budget = Range("J2")
' Trouver la dernière ligne du tableau
DLig = Range("A" & Rows.Count).End(xlUp).Row
LigAjt = DLig - 1
' Insérer une nouvelle ligne avant la fin - 1
Rows(LigAjt).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
' Inscrire les valeurs
Range("G" & LigAjt) = Budget
Range("A" & LigAjt) = "Boutique " & Range("A2")
' Trier les 2 dernière lignes
Range(Cells(LigAjt, 1), Cells(LigAjt + 1, 7)).Sort Key1:=Range("A" & LigAjt), Order1:=xlAscending, Header:=xlNo, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Cells(LigAjt + 1, 2).Select
End Sub