Private Sub Cmd_Valider_Click()
Dim l As Integer
Dim i As Integer
Dim Nom As String
Nom = ComboBox1.Value
If Nom = "" Then GoTo ici:
l = Sheets("Accueil").Range("BK65536").End(xlUp).Row + 1
Sheets("Accueil").Range("BK" & l).Value = Nom
Sheets("Accueil").Columns("BK").Sort Key1:=Range("BK1"), Order1:=xlAscending, Header:=xlGuess
For i = Range("BK65536").End(xlUp).Row + 1 To 2 Step -1
If Range("bk" & i) = Range("bk" & i - 1) Then
Range("bk" & i).ClearContents
End If
Next
Sheets("Accueil").Columns("BK").Sort Key1:=Range("BK1"), Order1:=xlAscending, Header:=xlGuess
ici:
On Error Resume Next
Nom = ComboBox2.Value
If Nom = "" Then GoTo ici1:
l = Sheets("Accueil").Range("BL65536").End(xlUp).Row + 1
Sheets("Accueil").Range("BL" & l).Value = Nom
Sheets("Accueil").Columns("BL").Sort Key1:=Range("BL1"), Order1:=xlAscending, Header:=xlGuess
For i = Range("BL65536").End(xlUp).Row + 1 To 2 Step -1
If Range("bL" & i) = Range("bL" & i - 1) Then
Range("bL" & i).ClearContents
End If
Next
Sheets("Accueil").Columns("BL").Sort Key1:=Range("BL1"), Order1:=xlAscending, Header:=xlGuess
ici1:
On Error Resume Next
Nom = ComboBox3.Value
If Nom = "" Then GoTo ici2:
l = Sheets("Accueil").Range("BM65536").End(xlUp).Row + 1
Sheets("Accueil").Range("BM" & l).Value = Nom
Sheets("Accueil").Columns("BM").Sort Key1:=Range("BM1"), Order1:=xlAscending, Header:=xlGuess
For i = Range("BM65536").End(xlUp).Row + 1 To 2 Step -1
If Range("bM" & i) = Range("bL" & i - 1) Then
Range("bM" & i).ClearContents
End If
Next
Sheets("Accueil").Columns("BM").Sort Key1:=Range("BM1"), Order1:=xlAscending, Header:=xlGuess
ici2:
On Error Resume Next
Nom = ComboBox4.Value
If Nom = "" Then GoTo ici3:
l = Sheets("Accueil").Range("BN65536").End(xlUp).Row + 1
Sheets("Accueil").Range("BN" & l).Value = Nom
Sheets("Accueil").Columns("BN").Sort Key1:=Range("BN1"), Order1:=xlAscending, Header:=xlGuess
For i = Range("BN65536").End(xlUp).Row + 1 To 2 Step -1
If Range("bN" & i) = Range("bN" & i - 1) Then
Range("bN" & i).ClearContents
End If
Next
Sheets("Accueil").Columns("BN").Sort Key1:=Range("BN1"), Order1:=xlAscending, Header:=xlGuess
ici3:
Ini
Unload Me
End Sub