Bonjour svp je dispose du code suivant
Function FindLast(ByVal code As String) As Variant
Dim pos As Integer
Dim pos1 As Integer
If code Like ("*@*") Then
If code Like ("*,*") Then
pos = InStr(code, "@")
pos1 = InStr(code, ",")
FindLast = RightNum(Mid(code, pos)) & "," &...