bonsoir Minick et Laretaille
la fonction Split n'est pas reconnue par Excel97
Laretaille , tu peux faire des essais en remplaçant la macro jointe dans le classseur proposé par Minick
j'espere que cela pourra t'aider
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Valeur As Variant
Dim Resultat As String, Donnee As String, Recherche As String
Dim Compteur As Byte
Dim Trouve As Long
Dim nouveau As String
On Error Resume Next
Recherche = Target & " "
For Compteur = 1 To Len(Recherche)
Valeur = Mid(Recherche, Compteur, 1)
If Valeur = " " Then ' à adapter selon séparateur utilisé
Trouve = Application.Match(CLng(Donnee), Sheets("Feuil2").Range("A1:A10"), 0)
If Not Trouve = 0 Then
nouveau = Sheets("Feuil2").Range("A" & Trouve).Offset(0, 1)
Resultat = Resultat & " " & nouveau
Else
Resultat = Resultat & " " & Donnee
End If
Donnee = ""
Trouve = 0
Else
Donnee = Donnee & Valeur
End If
Next Compteur
Application.EnableEvents = False
Range(Target.Address) = Resultat
Application.EnableEvents = True
End Sub
bonne soiree
MichelXld