Bonjour a tous
j'essaye de fermer l'Userform1 a la fin du code ci-dessous
merci
Private Sub CommandButton_Click()
On Error GoTo ErrSheet
Dim n&: n = Cells(Rows.Count, 1).End(3).Row: If n = 1 Then Exit Sub
Dim sh As Worksheet, T, v$, k As Byte, p%, i&
n = n - 1: T = [A2].Resize(n)...