Private Sub B_sup_Click()
If MsgBox("Etes vous sûr de suppimer " & f.Cells(Enreg, 1) & "?", vbYesNo) = vbYes Then
Enreg = Me.Enreg
f.Cells(Enreg, 1).EntireRow.Delete Shift:=xlUp
raz
'Me.Enreg = ""
UserForm_Initialize
End If
End Sub