Suppression ligne d'une feuille non active à l'ouverture

Bonjour,

Je dispose d'une feuille Acceuil avec plusieurs boutons. J'aimerai qu'en cliquant sur le bouton "Supprimer un enregistrement", la feuille "Détails" puisse s'affiche derrière l'Inputbox et dès que l'utilisateur saisit le numéro de la ligne, l'enregistrement puisse êre supprimer et la feuille "Détails" se ferme.

Avec mon code, seule la partie de la suppression de la ligne qui ne marche pas.

Private Sub cmdSuppression_Click()
    
Dim i As Integer
Dim Suppression As String

With Worksheets("Détails")

     Worksheets("Détails").Visible = True
     Sheets("Détails").Activate
    
     Suppression = InputBox("Veuillez entrer l'ID à supprimer", "Suppression d'enregistrement")

     For i = .Range("A" & .Rows.Count).End(xlUp).Row To 2 Step -1
        If .Range("A" & i).Value = Suppression Then
        Rows(i).Delete
        End If
     Next i

End With

    Worksheets("Détails").Visible = xlSheetVeryHidden
    Sheets("Acceuil").Activate

End Sub