Bonjour,
Function ExtraitUnderScore(ByVal Texte As String, ByVal Rang As Integer) As Variant
Dim Table As Variant
ExtraitUnderScore = ""
Table = Split(Texte, "_")
If Rang <= UBound(Table) + 1 Then
If IsNumeric(Table(Rang - 1)) Then
ExtraitUnderScore = Val(Table(Rang - 1))
Else
ExtraitUnderScore = Table(Rang - 1)
End If
End If
End Function