action sur case à cocher pour remplire plage de cellule

Sub test()
    Range("A1:A10").Value = "_"
End Sub

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim pl As Range 'déclare la variable cel (CELlule)

If Target.Column < 6 And Target.Column > 10 Then Exit Sub 'si la cellule double-cliquée se trouve ailleurs que dans les colonnes 6 à 10, sort de la procédure
If Target.Row <> 5 Then Exit Sub 'si la cellule double-cliquée se trouve ailleurs que dans lla ligne 5, sort de la procédure
Cancel = True 'évite le mode édition lié au double-clic
Set pl = Range(Target.Offset(1, 0), Target.Offset(10, 0)) 'définit la plage p
pl.Value = IIf(Target.Offset(1, 0) = "_", "", "_") 'définit la valeur de la plage pl
End Sub