'Aller dans l'onglet BD_VGP
Sheets("BD_VGP").Select
'Sélectionner de la cellule A4 jusqu'a la dernière ligne remplie au lieu de A54
Range("A4:A54").Select
Selection.Copy
'Aller dans l'onglet BD_PV2
Sheets("BD_PV2").Select
'Se positionner dans la cellule B3
Range("B3").Select
'Coller les éléments copiés
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False