Masquer les onglets(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("A")


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

'-------------------------------------------------------------------------------------
Worksheets("Canevas").Copy After:=Worksheets(Worksheets.Count)

ActiveSheet.Name = .Range("T10")
Set WCible = ActiveSheet

ActiveSheet.Name = xlVeryHidden '<------------ICI

' --------------------------------------------------------------------------------------
DerLig = .Range("B" & Rows.Count).End(xlUp).Row
TabTmp = .Range("B25:B" & DerLig)
WCible.Range("B14").Resize(UBound(TabTmp)) = TabTmp


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")


End With

Sheets("Canevas").Visible = xlVeryHidden
Application.ScreenUpdating = True

CommandButton_valider_note.Visible = True
End Sub

Cliquez pour agrandir...

  ActiveSheet.Name = xlVeryHidden '<------------ICI