Copie plage de cellules

Sub Macro1()
Dim n As Byte 'déclare la variable n
Dim x As Byte 'déclare la variable x
Dim dest As Range 'déclare la variable dest (DESTination)
 
With Sheets("Fiche analyse multisites") 'prend en compte l'onglet "Fiche analyse multisites"
    If .Range("E12") > 10 Then n = .Range("E12") - 10 'si E12 est supérieur à 10, définit la variable n
End With 'fin de la prise en compte de l'onglet 'Fiche analyse multisites"
 
With Sheets("SMP") 'prend en compte l'onglet "SMP"
    .Select 'sélectionne l'onglet
    For n = 1 To n 'boucle de 1 à n
        .Range("B26:P27").Copy 'copie la plage B26:P27
        Set dest = .Range("B" & .Range("H8").End(xlDown).Row + 1) 'definit dest, la dernière cellule du tableau
        dest.Insert Shift:=xlDown 'insère la plage copiée dans la cellule dest
        .Range("D" & .Range("H8").End(xlDown).Row - 1).Value = n + 10 'place le numéro du site
    Next n 'prochain valeur de la boucle
End With 'fin de la prise en compte de l'onglet "SMP"
Application.CutCopyMode = False 'supprime le contour clignotant des cellules la plage copiée
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$E$12" Or Target.Value < 10 Or Target.Count > 1 Then Exit Sub
x = 28
nbCopies = Target.Value - 10
With Sheets("SMP")
    For i = 1 To nbCopies
        .Range("B8:P9").Copy
        .Range("B" & x).Insert Shift:=xlDown
        .Range("D" & x) = 10 + i
        For j = 5 To 8
            .Cells(x + 3, j).Formula = .Cells(x + 3, j).Formula & "+" & Chr(64 + j) & x + 1
        Next
        x = x + 2
    Next
End With
Application.CutCopyMode = False

End Sub

Range("A1").End(xlDown).Select

Set [B]dest[/B] = .Range("[COLOR=red][B]B[/B][/COLOR]" & .Range("[COLOR=green][B]H8[/B][/COLOR]").[COLOR=cyan][B]End(xlDown)[/B][/COLOR].[COLOR=darkorchid][B]Row[/B][/COLOR] [COLOR=blue][B]+ 1[/B][/COLOR])