Bonsoir,
un code à mettre sur la feuille en question car c'est "événementiel" :
Private Sub Worksheet_Change(ByVal Target As Range)
Dim MaLigne As Range, MaColonne As Range, Temp, Tablo, I
If Not Intersect(Target, Range("A2:M13")) Is Nothing And Target <> "" Then
Tablo = Split(Target, " ")
For I = 0 To UBound(Tablo)
Set MaLigne = Range("A" & Target.Row & ":M" & Target.Row).Find(Tablo(I))
Set MaColonne = Range(Cells(2, Target.Column), Cells(13, Target.Column)).Find(Tablo(I))
If Not MaLigne Is Nothing And MaLigne.Address <> Target.Address Then
Temp = Temp
ElseIf Not MaColonne Is Nothing And MaColonne.Address <> Target.Address Then
Temp = Temp
Else
Temp = Temp & Tablo(I) & " "
End If
Next I
Application.EnableEvents = False
If Temp <> "" Then
Temp = Left(Temp, Len(Temp) - 1)
Target = Temp
Else
Target = ""
End If
Application.EnableEvents = True
End If
End Sub
@ bientôt
LouReeD