Drôle de texte dans le VBA

Private Sub eeeEEeeEEeEEEe_Click()
Dim ddDDdDdDddDdDDdddDddDDddDdDdddDdDDdDdDDdDDddDDdDDdDDdDDdddddDDDDddDdDddDDDDddDdDddddDd$, wWWwwwwwwwwwwWwwWWWWwWWwWWwwwwWwwwWwWwwWWWWwwWwWwwWWWWwWw&, eeeEeEEEEeeeeEEeEeeeEEeEEeeEEeeeeEEeeEEeEEeeEEeEeEeeEEEeEEeEeeeeeeeeeEEeeeEEeEeeeEeEeeEeeEeeeEeeeeeeeEEEE As Boolean
wWWwwwwwwwwwwWwwWWWWwWWwWWwwwwWwwwWwWwwWWWWwwWwWwwWWWWwWw = Val(VVvVVVvVvv.Caption)
With LllLLLLLLLLLL
eeeEeEEEEeeeeEEeEeeeEEeEEeeEEeeeeEEeeEEeEEeeEEeEeEeeEEEeEEeEeeeeeeeeeEEeeeEEeEeeeEeEeeEeeEeeeEeeeeeeeEEEE = .Cells(wWWwwwwwwwwwwWwwWWWWwWWwWWwwwwWwwwWwWwwWWWWwwWwWwwWWWWwWw, 1).Value <> Application.Proper(ttttTTtTttTTTTt.Text)
.Cells(wWWwwwwwwwwwwWwwWWWWwWWwWWwwwwWwwwWwWwwWWWWwwWwWwwWWWWwWw, 1).Value = Application.Proper(ttttTTtTttTTTTt.Text)
.Cells(wWWwwwwwwwwwwWwwWWWWwWWwWWwwwwWwwwWwWwwWWWWwwWwWwwWWWWwWw, 2).Value = Application.Proper(eEEeeEeEeEeEEeeeEeEeEEeeEee.Text)
.Cells(wWWwwwwwwwwwwWwwWWWWwWWwWWwwwwWwwwWwWwwWWWWwwWwWwwWWWWwWw, 3).Value = Application.Proper(mmmmmMmMmM.Text)
.Cells(wWWwwwwwwwwwwWwwWWWWwWWwWWwwwwWwwwWwWwwWWWWwwWwWwwWWWWwWw, 4).Value = Application.Proper(VvvvVvVVvvVVvvvVvvVvvvVv.Text)
.Cells(wWWwwwwwwwwwwWwwWWWWwWWwWWwwwwWwwwWwWwwWWWWwwWwWwwWWWWwWw, 5).Value = Application.Proper(ttTttTTtTTtTTtTtTtTTTttTTtTtT.Text)
ddDDdDdDddDdDDdddDddDDddDdDdddDdDDdDdDDdDDddDDdDDdDDdDDdddddDDDDddDdDddDDDDddDdDddddDd = Application.Substitute(VVvVvVVVvvvvvvVvvvVVVvvVVv.Text, oOOooooOOOoOOoooOoOOoOoooooOOoOooo("2C"), oOOooooOOOoOOoooOoOOoOoooooOOoOooo("2C20"))
ddDDdDdDddDdDDdddDddDDddDdDdddDdDDdDdDDdDDddDDdDDdDDdDDdddddDDDDddDdDddDDDDddDdDddddDd = Application.Substitute(ddDDdDdDddDdDDdddDddDDddDdDdddDdDDdDdDDdDDddDDdDDdDDdDDdddddDDDDddDdDddDDDDddDdDddddDd, oOOooooOOOoOOoooOoOOoOoooooOOoOooo("2020"), oOOooooOOOoOOoooOoOOoOoooooOOoOooo("20"))
.Cells(wWWwwwwwwwwwwWwwWWWWwWWwWWwwwwWwwwWwWwwWWWWwwWwWwwWWWWwWw, 6).Value = Application.Proper(ddDDdDdDddDdDDdddDddDDddDdDdddDdDDdDdDDdDDddDDdDDdDDdDDdddddDDDDddDdDddDDDDddDdDddddDd)
.Cells(wWWwwwwwwwwwwWwwWWWWwWWwWWwwwwWwwwWwWwwWWWWwwWwWwwWWWWwWw, 7).Value = Application.Proper(eEEEEeeeE.Text)
If eeeEeEEEEeeeeEEeEeeeEEeEEeeEEeeeeEEeeEEeEEeeEEeEeEeeEEEeEEeEeeeeeeeeeEEeeeEEeEeeeEeEeeEeeEeeeEeeeeeeeEEEE Then
.Cells.Sort Key1:=.Range(oOOooooOOOoOOoooOoOOoOoooooOOoOooo("4132")), Order1:=xlAscending, Header:= _
xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
With LLLlllllll
.vvvvvvVvvVVvVVVVvvvvvvVVVVvVvVVvVvVvVVvVVVVvvVvVvVvVV
.eeEEEeEEEeeEeeEeeeeeeEeEEeEeeeeeeeeEEEEeeEeeeEEeeeeEEeeEeeEEeEEeeeeeeeEEEEEEeEEEEeEEEEEEeEeeeEeeeeeEEEe
.eEEeeEeEeEeEEeeeEeEeEEeeEee.Value = ""
.mmmmmMmMmM.Value = ""
.VvvvVvVVvvVVvvvVvvVvvvVv.Value = ""
.VVvVvVVVvvvvvvVvvvVVVvvVVv.Value = ""
End With
End If
End With
If Not eeeEeEEEEeeeeEEeEeeeEEeEEeeEEeeeeEEeeEEeEEeeEEeEeEeeEEEeEEeEeeeeeeeeeEEeeeEEeEeeeEeEeeEeeEeeeEeeeeeeeEEEE Then
With LLLlllllll.IiiiIIiiIiiiIIIiIII
.List(wWWwwwwwwwwwwWwwWWWWwWWwWWwwwwWwwwWwWwwWWWWwwWwWwwWWWWwWw - 2, 0) = Application.Proper(ttttTTtTttTTTTt.Text)
.List(wWWwwwwwwwwwwWwwWWWWwWWwWWwwwwWwwwWwWwwWWWWwwWwWwwWWWWwWw - 2, 1) = Application.Proper(eEEeeEeEeEeEEeeeEeEeEEeeEee.Text)
.List(wWWwwwwwwwwwwWwwWWWWwWWwWWwwwwWwwwWwWwwWWWWwwWwWwwWWWWwWw - 2, 2) = Application.Proper(mmmmmMmMmM.Text)
.List(wWWwwwwwwwwwwWwwWWWWwWWwWWwwwwWwwwWwWwwWWWWwwWwWwwWWWWwWw - 2, 3) = Application.Proper(VvvvVvVVvvVVvvvVvvVvvvVv.Text)
.List(wWWwwwwwwwwwwWwwWWWWwWWwWWwwwwWwwwWwWwwWWWWwwWwWwwWWWWwWw - 2, 4) = Application.Proper(ttTttTTtTTtTTtTtTtTTTttTTtTtT.Text)
.List(wWWwwwwwwwwwwWwwWWWWwWWwWWwwwwWwwwWwWwwWWWWwwWwWwwWWWWwWw - 2, 5) = Application.Proper(ddDDdDdDddDdDDdddDddDDddDdDdddDdDDdDdDDdDDddDDdDDdDDdDDdddddDDDDddDdDddDDDDddDdDddddDd)
.List(wWWwwwwwwwwwwWwwWWWWwWWwWWwwwwWwwwWwWwwWWWWwwWwWwwWWWWwWw - 2, 6) = eEEEEeeeE.Text
End With
End If
Unload Me
End Sub