Besoin d'explication

[David59]

Bonjour le forum

Voilà j'ai trouver un formule qui permet de supprimer un doublon qui fonctionne très bien
celle ci

Private Sub CommandButton1_Click()
Dim L As Integer
Dim i As Integer
Dim Nom As String
Dim Msg As Byte
Nom = ComboBox1.Value
If Nom = "" Then Exit Sub
Msg = MsgBox("Voulez-Vous Ajouter : " & Nom, vbYesNo)
    If Msg = 6 Then
        L = Sheets("Feuil1").Range("A65536").End(xlUp).Row + 1
        Sheets("Feuil1").Range("A" & L).Value = Nom
        Sheets("Feuil1").Columns("A").Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlGuess
        For i = Range("A65536").End(xlUp).Row + 1 To 2 Step -1
        If Range("a" & i) = Range("a" & i - 1) Then
        MsgBox "Doublon Détecté et Détruit : " & Range("a" & i - 1).Value, vbCritical
        Range("a" & i).ClearContents
        End If
        Next
        On Error Resume Next
        Sheets("Feuil1").Columns(1).SpecialCells(xlCellTypeBlanks).EntireRow.Delete

    End If

End Sub

donc pas de problème juste une question
A quoi sert et que représente le 6 de

If Msg = 6 Then

quand je le change la formule ne va plus
merci d'avance
Bonne fin d'année à tout le forum
David @+

 

[David59]

Re : Besoin d'explication

Merci beaucoup Jean-Marcel


Une très bonne fin d'année jean-Marcel