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