Remplacer doubleclik par un bouton

If Target.Column <> 2 Then Exit Sub

If Target.Column <> 2 And Target.Column <> 1 Then Exit Sub

If Target.Column > 2 Then Exit Sub

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
  Dim ws As Worksheet
  Dim i As Integer, DerniereLigne As Integer
  
  If Intersect(Target, Range("B2:AD31")) Is Nothing Then Exit Sub
      For Each ws In Worksheets
    If ws.Name = Target Then
      MsgBox "La feuille avec ce nom existe déjà.", vbCritical, "Impossible de créer une feuille"
      Exit Sub
    End If
    Next
  Sheets.Add , Sheets(Worksheets.Count)
  ActiveSheet.Name = Target
  
 If Target.Row = 2 Then
  
    Range("A2", "A31").Copy
    With Sheets(Target.Text)
    .Range("A1").Select
    Selection.PasteSpecial Paste:=xlPasteAllUsingSourceTheme, Operation:=xlNone _
        , SkipBlanks:=False, Transpose:=False
      
    Range("B2", "B32").Copy
    .Range("B1").Select
    Selection.PasteSpecial Paste:=xlPasteAllUsingSourceTheme, Operation:=xlNone _
        ', SkipBlanks:=False, Transpose:=False
          
   [I] Cette partie là ne fonctionne pas !
'Range(Target.Column & "2" & ":c32").Copy
    'With Sheets(Target.Text)
    '.Range("C1").Select
    'Selection.PasteSpecial Paste:=xlPasteAllUsingSourceTheme, Operation:=xlNone _
       ', SkipBlanks:=False, Transpose:=True[/I]
       
      DerniereLigne = .Range("A65536").End(xlUp).Row
      For i = DerniereLigne To 1 Step -1
       If .Cells(i, 2) = "" Then .Rows(i).Delete
      Next
        
  End With
  End If
  
  If Target.Column = 2 Then
    
    Range("A2", "AL2").Copy
    With Sheets(Target.Text)
    .Range("A1").Select
    Selection.PasteSpecial Paste:=xlPasteAllUsingSourceTheme, Operation:=xlNone _
        , SkipBlanks:=False, Transpose:=True
    
    Range("A" & Target.Row).Copy
    .Range("B1").Select
    Selection.PasteSpecial Paste:=xlPasteAllUsingSourceTheme, Operation:=xlNone _
       , SkipBlanks:=False, Transpose:=True
    
    Range("B" & Target.Row & ":AK" & Target.Row).Copy
    .Range("B2").Select
    Selection.PasteSpecial Paste:=xlPasteAllUsingSourceTheme, Operation:=xlNone _
       , SkipBlanks:=False, Transpose:=True
    
    
    
    DerniereLigne = .Range("A65536").End(xlUp).Row
      For i = DerniereLigne To 1 Step -1
        If .Cells(i, 2) = "" Then .Rows(i).Delete
      Next
  End With
  End If
  
    
      
  End Sub