Méthode Range pour selectionner des cellules specifiques

Bonjour,

je suis entrain de créer un bouton pour automatiser l'ajout d'une ligne en copiant collant la dernière ligne.
vu qu'il y a plusieurs cellules et que je ne veuille pas la ligne entière, je voulais faire un copier coller à partir de la cellule B à la cellule AH de la dernière ligne, donc j'ai réussi à le faire mais en faisant un copier coller de chaque cellule à part comme cela
Sub Bouton1156_ajouter_une_ligne()

Dim L As Integer
Dim J As Integer

L = Sheets("Vision globale").Range("G65536").End(xlUp).Row
J = Sheets("Vision globale").Range("G65536").End(xlUp).Row + 1

With Sheets("Vision globale")

Range("A" & L).Select
Selection.Copy
Range("A" & J).Select
ActiveSheet.Paste
.Range("A" & J).Value = .Range("A" & L).Value + "0,01"
Range("AI" & L).Select
Selection.Copy
Range("AI" & J).Select
ActiveSheet.Paste
.Range("AI" & J).Value = .Range("AI" & L).Value + "1"
Range("B" & L).Select
Selection.Copy
Range("B" & J).Select
ActiveSheet.Paste
Range("C" & L).Select
Selection.Copy
Range("C" & J).Select
ActiveSheet.Paste
Range("D" & L).Select
Selection.Copy
Range("D" & J).Select
ActiveSheet.Paste
Range("E" & L).Select
Selection.Copy
Range("E" & J).Select
ActiveSheet.Paste

cela rend l'opération un peu lente. j'aimerai une solution pour pouvoir sélectionner une seule fois de B à AH et faire un seul copier coller. voila le code que j'ai en ce moment et il continue jusqu'à AH, c'est pas terrible ;)
Si quelqu'un à une solution, merci d'avance.

cordialement