XL 2016 inserser un nombre de ligne sur commande

Staple1600 à dit:

Bonjour le fil, abdourhaman

Si j'ai bien compris la question, voici ma proposition
(code VBA à mettre à place de celui qui est déjà dans l'userform)

VB:

'SAISIE DES DONNEES
Private Sub CommandButton1_Click()
Dim lOBj As ListObject, NBLigne As Long, TOTALigne As Long
Set lOBj = Sheets("Données de maintenance").ListObjects(1)
NBLigne = TextBox1
TOTALigne = lOBj.Range.Rows.Count - 1
lOBj.Resize lOBj.Range.Resize(TOTALigne + NBLigne, 4)
Unload UserForm1
End Sub

Private Sub UserForm_Initialize()
Dim lOBj As ListObject
Set lOBj = Sheets("Données de maintenance").ListObjects(1)
lOBj.Resize lOBj.Range.Resize(2, 4)
MsgBox "Bienvenu(e) dans cette application excel, utilisant la maintenance de PARRETOT." _
& Chr(13) & "Grace à elle vous aurez les noms des 20% de vos machines causant 80% des pannes de votre système." _
& Chr(13) & Chr(13) & "Veuillez saisir les données pour appliquer ce principe de maintenance"
End Sub

Cliquez pour agrandir...