Erreur sur code

Bonjour

Pouvez vous svp me dire ou est mon erreur sur ce code j'ai un beug sur ce morceau de code

If Sheets(Feuil1.Range("O6" = "AAA")) Then

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Sheets(Feuil1.Range("O6" = "AAA")) Then Sheets("Feuil1").Activate
 Columns("A:C").EntireColumn.Hidden = False
End Sub

Merci pour votre aide

Bonjour,

Tout dépend si tu utilises le codename de l'onglet, ou le nom de l'onglet...

2 possibilités :

If Feuil1.Range("06") = "AAA" Then
If Sheets("Feuil1").Range("O6") = "AAA" Then

Peut-être?

Bonjour cousinhub

j'ai essayé les 2 codes toujours la même erreur

regarde le fichier

Re-,

Perso, j'ai pas d'erreur..

Mais je ne saisis pas le but???

Pourquoi veux-tu activer la feuille active?

En général, les Select et autres Activate sont inutiles..