Private Sub CommandButton1_Click() 'bouton "Copier"
Dim pl As Range 'déclare la variable pl (PLage)
Dim dest As Range 'déclare la variable dest (DESTination)
ActiveCell.Select 'enlève le focus au bouton
With Sheets(CStr(Range("O2"))) 'prend en compte l'onglet
Set pl = .Range("S25:S30") 'définit la plage pl
Set dest = Sheets("Comparatif BPE").Range("IV6").End(xlToLeft).Offset(0, 1) 'définit la cellule de destination
End With 'fin de la prise en compte de l'onglet "Feuil1"
pl.Copy dest 'copie la plage pl dans la cellule de destination
End Sub