Private Sub Worksheet_Change(ByVal Target As Range)
Dim Trop As Long, LD As Long, LF As Long
If Intersect([C:NC], Target) Is Nothing Then Exit Sub
' initialisation lignes début et fin en fonction de la plage
Trop = (Target.Row - 6) Mod 9
If Trop < 0 Or Trop > 5 Then Exit Sub
LD = Target.Row - Trop: LF = LD + 5