Private Sub ValiderSaisie_Click()
If Not IsDate(TextBox1) Then TextBox1 = "": TextBox1.SetFocus: Exit Sub
Dim lig&
Application.ScreenUpdating = False
With Sheets("BL")
lig = .Range("A" & Rows.Count).End(xlUp).Row + 1
.Range("A" & lig) = CDate(TextBox1)
.Range("B" & lig) = TextBox2
.Range("C" & lig) = Val(TextBox3)
.Range("D" & lig) = TextBox4
.[E:E].Insert 'colonne auxiliaire
.Range("E5").Resize(lig - 4) = "=IF(COUNTIF(A$4:A5,A5)=1,MAX(E$4:E4)+1,VLOOKUP(A5,A:E,5,0))"
.Range("F5").Resize(lig - 4) = "=TEXT(E5,""0000"")&TEXT(A5,""-j-m-aa-"")&D5" 'si version française
'.Range("F5").Resize(lig - 4) = "=TEXT(E5,""0000"")&TEXT(A5,""-d-m-yy-"")&D5" 'si version anglaise
.Range("F5").Resize(lig - 4) = .Range("F5").Resize(lig - 4).Value 'supprime les formules
.[E:E].Delete 'supprime la colonne auxiliaire
End With
Unload F_BLEspc
F_BLEspc.Show
End Sub