Déplacer la valeur de la cellule de Excel Vba

Sub A1right() Dim Current As Worksheet ' Loop through all of the worksheets in the active workbook. For Each Current In ThisWorkbook.Worksheets With Current .Range("A1:H1").Copy Destination:=.Range("B1:I1") .Range("A1").ClearContents End With Next Current End Sub 

Je souhaite déplacer la valeur de A1 vers H1 vers B1 vers I1. L'erreur arrive 🙁 Besoin d'aide

• Remplissez une colonne d'une plage de concaténation
• Comment puis-je générer des files text Unicode avec un encoding UTF-8 depuis Excel?
• Formule VBA ou Excel pour copyr / découper et coller dans de nouvelles feuilles de travail
• Table croisée avec plusieurs éléments par transaction
• Lire datatables de feuille Excel dans DataTable ou Dataset