Sub test_1()
Application.ScreenUpdating = False
'ici on recopie en colonne A (par défaut)
CopieVS Feuil1, Feuil2, "A7:G15"
End Sub
Sub test_2()
'ici on recopie en colonne C -> dernier paramètre: 3
Application.ScreenUpdating = False
CopieVS Feuil1, Feuil2, "A7:G15", 3
End Sub
Private Sub CopieVS(f_A As Worksheet, f_B As Worksheet, rngAdr As String, Optional vCol As Long = 1)
Dim r As Range
Set r = f_B.Range(rngAdr)
f_A.Cells(Rows.Count, vCol).End(3)(2).Resize(r.Rows.Count, r.Columns.Count).Value = r.Value
End Sub