derligne = Range("D65535").End(xlUp).Row
Range("E1:O" & derligne).ClearContents
Application.ScreenUpdating = False
Range("D1:D" & derligne).Select
selection.TextToColumns Destination:=Range("E1"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar _
:="/", FieldInfo:=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, _
1)), TrailingMinusNumbers:=True
For Each cel In Range("E1:O" & derligne)
If UCase(cel) <> cel Then cel.Delete Shift:=xlToLeft
Next cel