Dim C As Range
Dim i As Byte
Dim texte As String
For Each C In Range("CY15:CY34")
If Not IsEmpty(C) Then
texte = ""
For i = 1 To Len(C)
If IsNumeric(Mid(C, i, 1)) or Mid(C, i, 1)="(" or Mid(C, i, 1)=")" or Mid(C, i, 1)="D" Then
texte = texte & Mid(C, i, 1)
End If
Next i
If texte <> "" Then C = texte
End If
Next C