Bonjour,
Sinon avec une fonction si VBA possible :
Function EntreVirgule2et3(ByVal Chaine As String) As Variant
Dim EntreVirgules As Variant
EntreVirgules = Split(Chaine, ",")
Debug.Print UBound(EntreVirgules)
If UBound(EntreVirgules) > 2 Then
EntreVirgule2et3 = EntreVirgules(2)
Else
EntreVirgule2et3 = ""
End If
End Function