Aide et modif code vba(RESOLU)

Private Sub CommandButton6_Click()
 Dim DerLig As Integer, NumLig As Integer, WCible As Worksheet, TabTmp, FeuilleExistante
    
    Application.ScreenUpdating = False
    Sheets("Canevas").Visible = True
  
  With Worksheets("FNA")

  'vérifie que la feuille à créer n'existe pas
     FeuilleExistante = IsError(Evaluate("='" & .Range("T10") & "'!A1"))
     If Not FeuilleExistante Then
         MsgBox " impossible de poursuivre. La feuille " & .Range("T10") & " existe déjà"
         Exit Sub
     End If

  'Création nouvelle feuille
      
      Worksheets("Canevas").Copy After:=Worksheets(Worksheets.Count)
     
      ActiveSheet.Name = .Range("T10")
      Set WCible = ActiveSheet
      MsgBox " Une Copie de la Note " & .Range("T10") & " a été crée."
      WCible.Visible = xlVeryHidden
      
  ' Copie des données
      DerLig = .Range("B" & Rows.Count).End(xlUp).Row
      TabTmp = .Range("B25:B" & DerLig)
      WCible.Range("B14").Resize(UBound(TabTmp)) = TabTmp
      
  'copie des différentes cellules
      WCible.Range("D2") = .Range("E14") 
      WCible.Range("E4") = .Range("E15") 
      WCible.Range("E6") = .Range("E13") 
      WCible.Range("E8") = .Range("M17") 
      WCible.Range("K8") = .Range("Q22") '
      WCible.Range("B10") = .Range("T10") 
      WCible.Range("H10") = .Range("T9") 
      WCible.Range("E12") = .Range("T20") 
      '..... à compléter
      
  End With
  
   Sheets("Canevas").Visible = xlVeryHidden
    Application.ScreenUpdating = True
 
 CommandButton_valider_note.Visible = True
End Sub

  ' Copie des données 
      DerLig = .Range("B" & Rows.Count).End(xlUp).Row
      TabTmp = .Range("B25:B" & DerLig)
      WCible.Range("B14").Resize(UBound(TabTmp)) = TabTmp