With Worksheets("CASCADE")
colonne = Application.Match(ComboBox1.Value, .Range("A1:AZ1"), 0)
If Not IsError(Application.Match(TextBox1.Text, .Columns(colonne).Cells, 0)) Then
'Existe déjà
Else
.Cells(.Rows.Count, colonne).End(xlUp)(2) = TextBox1.Text
With .Range(.Cells(1, colonne), .Cells(.Rows.Count, colonne).End(xlUp))
.Sort key1:=.Cells(1, 1)
End With
End If
End With