' Supprimer un client
Private Sub CommandButton2_Click()
Dim Fact As String, Lg As Long, i As Byte
Fact = TextBox5.Text
With Sheets("THSauvegarde")
Lg = .Range("E:E").Find(Fact, LookIn:=xlValues).Row
.Cells(Lg, 1).EntireRow.Delete
End With
UserForm_Initialize
For i = 1 To 26
Me.Controls("TextBox" & i) = ""
Next
End Sub