Re-bonsoir!
je l'ai fait et cela ne fonction pas...
dans le code de la partir USERFORM RENITIALISER
je rencontre un problème dans cette partie la
Private Sub UserForm_Initialize()
Dim iLastRow As Long
Dim sStr As String
iLastRow = 2
esp = Mid(Feuil1.Range("A" & iLastRow), 5)
sStr = CStr(CLng(esp) + 1)
Do
sStr = "0" & sStr
Loop Until Len(sStr) = 6
Me.TextBox1 = "F19-" & sStr
OptionButton2 = True
OptionButton4 = True
le probleme vient de la ligne
esp = Mid(Feuil1.Range("A" & iLastRow), 5)