Supprimer numéro de ligne et mettre à jour les numéros

Bonjour à tous,

J'ai une colonne avec des chiffres allant de 1 à 15. J'ai créé une petite macro pour supprimer un numéro de ligne

avec inputbox. Cependant si je supprime par exemple le numéro 7, les lignes de 8 à 15 restent telles qu'elles le sont alors

que j'aimerais que le 8 devienne 7, le 9 devienne 8 etc

Merci pour votre aide!

Sub Supprimer()
    Dim i As Integer
    Dim SupprimeLigne As String
    Dim SingleCell As Integer

    i = 1
    SupprimeLigne = InputBox("Veuillez saisir le numéro de ligne à supprimer", "Suppression")
    With Sheets("Feuil1")
        For i = .Range("A" & .Rows.Count).End(xlUp).Row To 2 Step -1
            If .Range("A" & i).Value = SupprimeLigne Then
               Rows(i).Delete
            End If
        Next i
    End With
End Sub

Bonjour,

une proposition

Sub Supprimer()
    SupprimeLigne = InputBox("Veuillez saisir le numéro de ligne à supprimer", "Suppression")
    With Sheets("Feuil1")
        dl = .Range("A" & .Rows.Count).End(xlUp).Row
        Rows(SupprimeLigne).Delete
        With .Range("A1:A2")
            .Value = Application.Transpose(Array(1, 2))
            .AutoFill Destination:=.Range("A1").Resize(dl - 1), Type:=xlFillDefault
        End With
    End With
End Sub

yes ça marche merci