Sub auto_clustering()
Set WF = WorksheetFunction
'il faut retrouver les cluster des issue précédentes avant de supprimer les lignes
n = WF.CountA(Sheets("Feuil1").Columns(1)) ' compte le nombre de ligne
For i = 2 To n
valeur = Cells(i, 1).Value
longueur = Len(valeur)
issu = Right(valeur, 2)
If Left(issu, 1) = "-" Then
issu_a_rechercher = Left(valeur, longueur - 2)
'BEUG A CAUSE DE L ISSU
Ligne = WF.Match(issu_a_rechercher & "*", Sheets("Feuil2").Range("a:a"), 0)
Sheets("Feuil1").Cells(i, 2).Value = Sheets("Feuil2").Cells(Ligne, 3).Value
Sheets("Feuil1").Cells(i, 3).Value = Sheets("Feuil2").Cells(Ligne, 4).Value
Else
's'il trouve la valeur il renseigne les champs Cluster et Ss-cluster
'Set
Ligne = WF.Match(issu_a_rechercher & "*", Sheets("Feuil2").Range("a:a"), 0)
'If Ligne Is Nothing Then
Sheets("Feuil1").Cells(i, 2).Value = Sheets("Feuil2").Cells(Ligne, 3).Value
Sheets("Feuil1").Cells(i, 3).Value = Sheets("Feuil2").Cells(Ligne, 4).Value
'Else
' Workbooks("besoin1.xlsm").Worksheets("Feuil1").Cells(i, 2).Value = Workbooks("besoin1.xlsm").Worksheets("Feuil2").Cells(Ligne, 3).Value
' Workbooks("besoin1.xlsm").Worksheets("Feuil1").Cells(i, 3).Value = Workbooks("besoin1.xlsm").Worksheets("Feuil2").Cells(Ligne, 4).Value
' End If
'BEUG QUAND IL NE TROUVE PAS LA VALEUR
End If
Next i
End Sub