Macro pour copier-coller une ligne vers la dernière ligne d'un autre tableau

Sub Ajout_Base()
Dim Plage As Range
Dim Cellule As Range

'Ouverture du classeur base.xls
Workbooks.Open Filename:= _
"C:\ptc_config\config_perso_wf2\Macros_Articles\code_xls\base.xls"

'Insertion d'une nouvelle ligne sans MFC
Workbooks("base.xls").Worksheets("Feuil1").Rows("3:3").Insert Shift:=xlDown

' Copier coller la MFC de la ligne du dessous
Workbooks("base.xls").Worksheets("Feuil1").Range("A5").Copy
Workbooks("base.xls").Worksheets("Feuil1").Range("A3").PasteSpecial Paste:=xlPasteFormats

'Copier de la ligne 2 du classeur code.xls vers la ligne 3 de base.xls
Workbooks("code.xls").Worksheets("Feuil1").Range("A2:H2").Copy
Workbooks("base.xls").Worksheets("Feuil1").Range("A3").PasteSpecial Paste:=xlPasteValues


'Effacer les A du format
Set Plage = Range("D3200")
For Each Cellule In Plage
Cellule.Value = Replace(Cellule.Value, "A", "")
Next Cellule

'Effacer les espaces de base.xls.
Call SupprEspaces 'Module 4

'Effacer les caractères (ï>>¿) BOM (UTF_8)
Call SupprimerCar 'Module 5
End Sub

Cliquez pour agrandir...