Code à 1 condition

Bonjour,

J'ai le code ci-dessous qui me fait apparaître un MgsBox si dans la cellule N7 j'ai "Autres" de sélectionné via une liste déroulante.

Or je voudrai paramétrer ce code à toutes les cellules de la colonne N et depuis la cellule N7.

Comment faire ?

Private Sub Worksheet_Change(ByVal Target As Range)
 If Target.Address = "$N$7" And Target.Value = "Autres" Then
    MsgBox "Vous avez saisi Autres, veuillez préciser le choix dans la colonne complément!", vbInformation, "Référentiel"
    End If
End Sub

Merci.

Bonjour

Tu remplaces "$N$7" par "$N$7:$N$65536"

Cordialement

Bonsoir

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("N7:N65536")) Is Nothing Then
If Target.Value = "Autres" Then
MsgBox "Vous avez saisi Autres, veuillez préciser le choix dans la colonne complément!", vbInformation, "Référentiel"
End If
End If
End Sub

Amicalement

Nad