Ok mais vous ne répondez pas à mes questions et je n'ai toujours pas compris le pourquoi de la ligne suivante...
Bon remplacez tous les codes de votre USF par ceci
Option Explicit
Private Sub CommandButton1_Click()
Dim dlg As Integer
With Feuil1 'code name de onglet previsio
'Recherche de la 1ère ligne vide
dlg = .Range("B" & Rows.Count).End(xlUp).Row
If dlg = 2 Then dlg = 3 'si derniere ligne =2 on met la variable a valeur 3
'Saisir les informations
.Cells(dlg + 1, 2) = BoxSemaine.Text
.Cells(dlg + 1, 3) = BoxDem.Text
.Cells(dlg + 1, 4) = BoxN°Moule.Text
.Cells(dlg + 1, 5) = BoxN°Essai.Text
.Cells(dlg + 1, 6) = BoxPièces.Text
.Cells(dlg + 1, 7) = BoxTypeEssai.Text
.Cells(dlg + 1, 8) = BoxProjet.Text
.Cells(dlg + 1, 9) = BoxDemandeur.Text
.Cells(dlg + 1, 10) = BoxNbreEmpreinte.Text
.Cells(dlg + 1, 11) = BoxNbrePDC.Text
.Cells(dlg + 1, 12) = BoxNbrePDDC.Text
.Cells(dlg + 1, 13) = BoxNbreAspect.Text
.Cells(dlg + 1, 14) = BoxDateArrivéePrévisionnel.Text
.Cells(dlg + 1, 15) = BoxDélaiSouhaité.Text
'Ajout formules en Colonne A et T
'.Cells(dlg + 1, 1).AutoFill Destination:=Range("A4:A" & dlg + 1), Type:=xlFillDefault
'.Cells(dlg + 1, 20).AutoFill Destination:=Range("T4:T" & dlg + 1), Type:=xlFillDefault
End With
'Remise à zéro de la Userform
Dim c As Control
For Each c In Me.Controls 'on boucle sur chacun des objets sur l'USF
If c.Name Like "Box*" Then c.Value = vbNullString 'si nom de l'objet commence par "Box..." on vide l'objet (ici Box correspond a une textbox)
Next c
'Unload Me 'pour ferme l'USF automatiquement
End Sub
Private Sub CommandButton2_Click()'annuler
Unload Me
End Sub
A voir si intérêt pour vous éviter de mettre des formules en colonne A et T.
- supprimer toutes les lignes sauf la ligne 4 qui contient une formule en colonne A et T
- Activez les deux lignes en dessous de la mention --> 'Ajout formules en Colonne A et T. Ces deux instructions recopieront la formule en A4 et T4 sur la ligne ajoutée.
- L'USF reste ouverte après avoir cliqué sur le bouton Ajouter. Si vous ne voulez pas, faites ceci dans le code :
--> 1. Désactivez les 4 lignes en dessous de la mention 'Remise à zéro
--> 2. Activez la ligne Unload Me
Faites un test et dites-moi