Sub Recuperation_CMU()

    Dim ws As Worksheet
    Dim lastRow As Long
    Dim cell As Range
    Dim textArray() As String
    Dim numericValues As String
    Dim isCMUFound As Boolean

    ' Spécifiez la feuille de calcul "Sources"
    Set ws = ThisWorkbook.Sheets("Sources")

    ' Trouver la dernière ligne avec des données dans la colonne L
    lastRow = ws.Cells(ws.Rows.Count, "L").End(xlUp).Row

    ' Parcourez les cellules de la colonne L à partir de la ligne 2
    For Each cell In ws.Range("L2:L" & lastRow)
        textArray = Split(cell.Value, "/") ' Divise le contenu de la cellule en un tableau
        
        numericValues = "" ' Initialise la chaîne pour stocker les valeurs numériques
        isCMUFound = False

        ' Parcourez le tableau des textes
        For Each txt In textArray
            If Trim(txt) = "*CMU*" Then
                isCMUFound = True
            ElseIf isCMUFound Then
                
                ' Si "CMU" est trouvé et la valeur est numérique, ajoutez-la
                If numericValues = "" Then
                    numericValues = txt
                Else
                    numericValues = numericValues & "/" & txt
                End If
            End If
        Next txt

        ' Copiez les valeurs numériques dans la cellule AC de la même ligne ou laissez-la vide
            cell.Offset(0, 17).Value = numericValues
    Next cell
    
End Sub