Effecer contenue d'autres cellules dans EXCEL

Bonjour,
Une piste ?
A coller dans le code de la feuille,

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Column = 3 Then AncValeur = Target
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
Dim i As Integer
    If Target.Column = 3 And Target <> AncValeur Then
        For i = 93 To 174: Cells(Target.Row, i) = "": Next i
    End If
End Sub

A+

ça marche pas.

Quand j'active les Macros, il ne se passe rien...

Chez toi la politesse n'est pas de mise ?..
Pour une fois je vais passer outre,.. où tu à mis le code ci-dessus ?

Bonjour,

Nous n'avons pas la même notion de la politesse, il y a une discussion ou je dis juste que ça ne marche pas....

Bref, j'ai mis ça dans une macro que j'ai créé et j'ai copié/collé le code qui m'a été fourni ci-dessus.

Merci pour vos réponses, cordialement

Oui, c'est pour cela que ça ne marche pas,
Quand tu est dans Excel (le classeur) tu clic droit sur l'onglet de la feuille que tu veux tester et tu sélectionne >> Visualiser le code, c'est sur cette feuille de code que tu dois copier tel quel le code ci-dessus.
Avec un ajout,
Tout en haut de la fenêtre de code tu met..

Dim AncValeur as Variant 

Sinon, toutes les cellules seront effacées à chaque fois.
A+