macro à corriger- Erreur d’execution type 13 - résolu

[CAFRINE]

Bonsoir à tout le forum

J'ai des macros ( couper/coller ligne si x) ( minuscule/majuscule pour des colonnes) qui fonctionnait bien auparavant se met à buguer depuis qq temps.
si je fais des recopies de plusieurs cellules sur feuil 1,2,3: Erreur d’execution type 13 - incompatibilite pour la ligne : If Target.Column = 12 And UCase(Target) = "X" Then.

de même,si je fais des copier-coller / effacer : Erreur d’execution type 13 ......incompatibilite pour la 1ere ligne :Target = UCase(Target)
............................................................................................

Private Sub Worksheet_Change(ByVal Target As Range)
Dim lig%, nblig%, i As Byte
ActiveSheet.Unprotect
If Not Intersect(Target, Range("B5:B500")) Is Nothing Then Target = UCase(Target) <<<<
If Not Intersect(Target, Range("C5:C500")) Is Nothing Then Target = LCase(Target)
If Not Intersect(Target, Range("D5500")) Is Nothing Then Target = UCase(Target)
If Target.Column = 12 And UCase(Target) = "X" Then <<<<<


Ce fichier comporte 6 feuilles de même nature et format.
je profite pour une autre question : . Comment accéder aux filtres sans enlever la protection à chaque fois (sur excel 97) - je m'en sert aussi sur excel 2003 = ok

Merci de votre aide

Cafrine