Sub Userform_Activate()
With TreeView1.Nodes
.Clear
Select Case ActiveSheet.Name
Case "Estimation"
.Add(Key:="N1", Text:="Ensemble de murs").Tag = "20:33"
.Add(Key:="N2", Text:="Isolation").Tag = "34:40"
.Add(Key:="N3", Text:="Options murs").Tag = "41:48"
.Add("N3", tvwChild, "N3C1", Text:="Vis SDS").Tag = "42:42"
.Add("N3", tvwChild, "N3C2", Text:="Membranes").Tag = "43:43"
.Add("N3", tvwChild, "N3C3", Text:="Contre-Plaqué").Tag = "44:44"
.Add("N3", tvwChild, "N3C4", Text:="Ancrages").Tag = "45:48"
.Add(Key:="N4", Text:="Camurlat").Tag = "49:54"
.Add("N4", tvwChild, "N4C1", Text:="Murs").Tag = "50:52"
.Add("N4", tvwChild, "N4C2", Text:="Murs 2").Tag = "52:52"
.Add("N4", tvwChild, "N4C3", Text:="Plafonds").Tag = "53:54"
.Add(Key:="N5", Text:="Ferme de toit").Tag = "55:64"
.Add(Key:="N6", Text:="Ensemble Plancher").Tag = "65:73"
.Add("N6", tvwChild, "N6C1", Text:="Vrac Plancher").Tag = "70:73"
.Add(Key:="N7", Text:="Option module").Tag = "74:79"
Case "Autres"
.Add(Key:="N1", Text:="Ensemble de murs").Tag = "20:33"
.Add(Key:="N2", Text:="Isolation").Tag = "34:40"
.Add(Key:="N3", Text:="Options murs").Tag = "41:48"
.Add("N3", tvwChild, "N3C1", Text:="Vis SDS").Tag = "42:42"
.Add("N3", tvwChild, "N3C2", Text:="Membranes").Tag = "43:43"
.Add("N3", tvwChild, "N3C3", Text:="Contre-Plaqué").Tag = "44:44"
.Add("N3", tvwChild, "N3C4", Text:="Ancrages").Tag = "45:48"
.Add(Key:="N4", Text:="Camurlat").Tag = "49:54"
.Add("N4", tvwChild, "N4C1", Text:="Murs").Tag = "50:52"
.Add("N4", tvwChild, "N4C2", Text:="Murs 2").Tag = "52:52"
.Add("N4", tvwChild, "N4C3", Text:="Plafonds").Tag = "53:54"
.Add(Key:="N5", Text:="Ferme de toit").Tag = "55:64"
.Add(Key:="N6", Text:="Ensemble Plancher").Tag = "65:73"
.Add("N6", tvwChild, "N6C1", Text:="Vrac Plancher").Tag = "70:73"
.Add(Key:="N7", Text:="Option module").Tag = "74:79"
End Select
End With