Bonjour,
Le plus pratique reste une fonction personnalisée.
Function EPURERCODE(codequip As String) As String
Dim ceq, i%
Application.Volatile
ceq = Split(codequip, ".")
For i = UBound(ceq) To 0 Step -1
If IsNumeric(ceq(i)) Then
ceq(i) = "@"
Else
Exit For
End If
Next i
EPURERCODE = Replace(Join(ceq, "."), ".@", "")
End Function
Cordialement.