Macro pour copier et insérer ligne copiée

Sub Macro1()
With Sheets("Réponse")
    'détermine la première ligne vide en "B20:Bx"
    'Attention "B21" ne doit jamais être supprimée
    dl = .Range("B20").End(xlDown).Row + 1
    'insert une nouvelle ligne à cet endroit
    .Rows(dl).Insert Shift:=xlDown
    'copie la plage "B:I" de la ligne précédente
    .Range(.Cells(dl - 1, 2), .Cells(dl - 1, 9)).Copy
    'colle le format de cette plage dans la nouvelle ligne
    .Range("B" & dl).PasteSpecial Paste:=xlFormats
    'zt y colle la plage
    ActiveSheet.Paste
    'désactive le mode copier/coller
    Application.CutCopyMode = False
End With

End Sub