Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo Fin
If Target.Count > 1 Then Exit Sub
DL = Range("N65500").End(xlUp).Row
If Not Intersect(Target, Range("C6:C1" & DL)) Is Nothing Then ' Début de plage à adapter
If Cells(Target.Row, "N") = False Then
If Target.Row = 7 Then
MsgBox " Merci d'équilibrer l'écriture de la première ligne", vbExclamation, " IMPORTANT ! "
Else
MsgBox " Merci d'équilibrer l'écriture numéro " & Cells(Target.Row - 1, 3), vbExclamation, " IMPORTANT ! "
End If
End If
End If
Fin:
End Sub