Modification de code

Bonjour, toutes et tous,

J'ai ici, un code qui fonctionne très bien sur une ligne de 26 colonnes

j'aimerais l'adapter pour la colonne E de +/- 1500 lignes

Private Sub Worksheet_SelectionChange(ByVal Target As Range)                
Dim DerCol As Integer, I As Integer                

If Len(Range("Y3")) = 3 Then    'Nombre de lettre                
    DerCol = Cells(3, Columns.Count).End(xlToLeft).Column                
    For I = 26 To DerCol    '1ère colonne de départ            début 1ère colonne  (Z)    
        If UCase(Left(Cells(3, I), 3)) = UCase(Range("Y3")) Then                
            Cells(3, I).Select                
            Range("Y3").ClearContents                
            Exit Sub                
        End If                
    Next I                
   ' Range("Y3").ClearContents                
End If                
End Sub                

Je ne sais pas quel code écire

Merci de votre gentillesse

Amicalement

Pierrot

Bonjour, le forum,

n'ayant pas eu de réponses, je dépose un fichier exemple qui fonctionne en ligne mais pas en colonne, voir le code de la feuille

Merci de bien vouloir m'aider encore une fois.à modifier ce codeSVP

Amicalement

Pierrot

Bonjour

A tester si j'ai compris ce que tu cherches

Bonjour, Banzai64, c'est juste ce qu'il me' fallait.

un tout grand merci, de plus ça marche, ce qui ne gâte rien.

Amitiés

Pierrot