[VBA] Appliquer un changement toutes X lignes à partir de Y

Bonsoir,

J'ai cette macro qui en théorie modifie quelque chose toutes les 1 lignes à partir de la colonne 6 ligne 4 :

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Target.Column = 6 Then
    If (Target.Row - 4) Mod 1 = 0 Then
        If Target.Offset.Value = "" Then Target.Offset.Value = "Veuillez écrire ici"
    End If
    If Target.Value = "test" Then
        Target.Interior.ColorIndex = 33
        Target.Font.ColorIndex = 1
    Else
        Target.Interior.ColorIndex = 2
        Target.Font.ColorIndex = 1
    End If
End If
End Sub

Cependant, même avant la ligne 4 les modification prennent quand même effet.
Ais-je fais quelque chose de faux ?

image
4exemple.xlsm (22.24 Ko)

Bonjour,

Ajoutez la détection du N° de ligne:

If Target.Column = 6 Then
If Target.Column = 6 And Target.Row > 3 Then

Cdlt

Merci ça fonctionne !
Désolé du temps de réponse

Rechercher des sujets similaires à "vba appliquer changement toutes lignes partir"