Private Sub cmdRemove_Click()
Dim derlig&, i&
UserFormStatus = Status.Remove: usfTitle
RemoveRecord CurrentRecord ' Supprime l'enregistrement courant
UserFormStatus = Status.Consultation: usfTitle
With shtMember
derlig = .Range("b" & Rows.Count).End(xlUp).Row
For i = 2 To derlig
.Range("a" & i) = "R00" & i - 1
Next i
End With
End Sub