insertion de 2 codes vba ds le même module

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
With [HDV]
    With .Rows(.Rows.Count + 1)
        If Not Intersect(ActiveCell, .Cells(1)) Is Nothing And .Cells(0, 1) <> "" Then
            .Rows(0).Copy .Cells(1)
            .SpecialCells(xlCellTypeConstants).ClearContents
        End If
    End With
End With
With [Clemenceau]
    With .Rows(.Rows.Count + 1)
        If Not Intersect(ActiveCell, .Cells(1)) Is Nothing And .Cells(0, 1) <> "" Then
            .Rows(0).Copy .Cells(1)
            .SpecialCells(xlCellTypeConstants).ClearContents
        End If
    End With
End With
End Sub