Boucle pour une validation de données

Bonjour le forum,

j'ai parcouru les plus de trois mille réponses sur ce sujet, mais rien ne me convient.

je cherche à créer une boucle For...Next pour entrer une validation de données dans plusieurs lignes d'un tableau.

Merci de jeter un oeil sur le fichier joint.

Bonne journée

Papy Pierrot

a mettre dans le module de ta feuille

Private Sub Worksheet_Change(ByVal Target As Range)
    Application.EnableEvents = False
    If Target.Row Mod 4 = 0 Then
        Select Case Target.Column
        Case 1
            If Target.Offset(0, 3) = "" Then
            Else
                MsgBox ("NON")
                Target.Value = ""
            End If
        Case 4
            If Target.Offset(0, -3) = "" Then
            Else
                MsgBox ("NON")
                Target.Value = ""
            End If
        End Select
    End If
    Application.EnableEvents = True
End Sub

Bonjour Engue Engue,

Un tout grand merci et de plus, ça fonctionne, je vais juste modifié le Msg "NON

Encore merci et bon après-midi

Papy Pierrot