XL 2019 Check Boxes copie / coller

Private Sub Worksheet_Activate()
Dim lig&, r As Range
lig = 3
Application.ScreenUpdating = False
Rows(lig & ":" & Rows.Count).ClearContents 'RAZ
For Each r In Sheets("check boxes").[E4:T86].Rows
    If r.Cells(1, -2) = True Then
        Cells(lig, 3).Resize(, 16) = r.Value
        Cells(lig, 3) = lig - 2
        lig = lig + 1
    End If
Next
End Sub

Private Sub Worksheet_Activate()
Dim lig&, r As Range
lig = 3
Application.ScreenUpdating = False
Rows(lig & ":" & Rows.Count).Delete 'RAZ
For Each r In Sheets("check boxes").[E4:T86].Rows
    If r.Cells(1, -2) = True Then
        r.Cells(8).Resize(, 3).Copy Cells(lig, 10) 'pour copier les formats des 3 cellules
        Cells(lig, 10).Resize(, 3).Borders.LineStyle = xlNone 'supprime les bordures
        Cells(lig, 3).Resize(, 16) = r.Value 'copie les valeurs
        Cells(lig, 3) = lig - 2
        lig = lig + 1
    End If
Next
End Sub