Code VBA pour projet formulaire de demande

Private Sub OptionButton1_Click()		
    Range("B12:D18").Select		
    Selection.Copy		
    Sheets("Formulaire").Select		
    ActiveSheet.Paste		
End Sub

Sheets("Formulaire").Select
    Range("B65000").Select
    Selection.End(xlUp).Select

Option Explicit

'La variable publique Choix est alimentée par un clic dans un optionbutton cf code de l'userform
'elle sert à passer en paramètre de la procédure copier_coller le choix de l'utilisateur
Public Choix As String

Sub Copier_coller(strChoix As String)
Dim maSelection As Range, DernLigne As Long

With Sheets("Listes")
  Select Case strChoix
    Case "Acier"
      Set maSelection = .Range("B12:D18")
        
    Case "Bois"
      Set maSelection = .Range("B20:D24")
    
    Case "Plastique"
      Set maSelection = .Range("B26:D30")
    
    Case "Titane"
      Set maSelection = .Range("B32:D38")
    
    Case Else
      MsgBox "Merci d'effectuer un choix en cliquant sur un des boutons d'options"
      Exit Sub
  End Select
'on copie :
maSelection.Copy
End With
With Sheets("Formulaire")
  .Select
  'on calcule la dernière ligne
  DernLigne = .Range("C" & Rows.Count).End(xlUp).Row
  'cas de la première utilisation
  If DernLigne = 1 Then DernLigne = 10
  .Range("B" & DernLigne + 2).Select
  .Paste
End With
End Sub 

Private Sub CommandButton4_Click()
If Choix <> "" Then Call Copier_coller(Choix)
End Sub

Private Sub OptionButton1_Click()
Choix = "Acier"
End Sub

Private Sub OptionButton2_Click()
Choix = "Bois"
End Sub

Private Sub OptionButton3_Click()
Choix = "Plastique"
End Sub

Private Sub OptionButton5_Click()
Choix = "Titane"
End Sub