Hello, si le numéro commence toujours par B puis un chiffre :
Dim strExtract As String
Dim intPosition, intIndex As Integer
Dim objReference As Range
On Error Resume Next
For Each objReference In ThisWorkbook.ActiveSheet.Columns(2).SpecialCells(xlConstants)
intIndex = 1
Do
intPosition = InStr(intIndex, UCase(objReference.Value), "B")
If Mid(objReference.Value, intPosition + 1, 1) = "0" Or Val(Mid(objReference.Value, intPosition + 1, 1)) > 0 Then
strExtract = Mid(objReference.Value, intPosition, 6)
Exit Do
End If
intIndex = intPosition + 1
If intIndex > Len(objReference.Value) Or intPosition = 0 Then
strExtract = objReference.Value
Exit Do
End If
Loop
Debug.Print strExtract
Next objReference
End Sub
il ne reste plus qu'à utiliser la variable strExtract
sinon si ces références commencent toujours par "ND " et continu après le "B" avec "ASTA"
tu peux faire :
chercher "ND " et remplacer par rien
chercher "ASTA*" et remplacer par rien
dom ;-)