Bonsoir,
Je doit avoir un mélange dans mon code, mais je ne vois pas quoi ?
Une petite idée ?
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Or Target.Address <> "$M$48" Then Exit Sub
For Each Cell In Sheets("Liste").Range("A:A")
If Target.Value = Cell.Value Then MsgBox Cell.Offset(, 1), ,
"Définition :"
Next
If flag Then Exit Sub
flag = True
If Target.Address = "$M$48" Then
Target.Value = UCase(Target.Value)
'Rows("42:37").ClearContents
y = 1
For X = 1 To Len([M48])
Cells(42, 37 + y) = Mid([M48], X, 1)
y = y + 2
Next
End If
flag = False
End Sub