XL 2010 Imposer 2 choix de formats de cellule

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error GoTo Fin
    If Target.Count > 1 Then Exit Sub
    If Not Intersect(Target, Range("A2:A1000")) Is Nothing Then
        If Target <> "" Then    ' cellule non vide, donc refus
            MsgBox "Désolé, celle ligne est déjà remplie."
            Exit Sub
        Else
            R = InputBox("Veuillez entrer une référence.", vbYesNo)         ' Remande de Ref
            If R <> "" Then ' Ref entrée non vide
                If Left(R, 5) = "WO-1N" Or Left(R, 5) = "WM-X" Then         ' Début de Ref correcte
                    Cells(Target.Row, "A") = R                              ' On range la Ref
                Else
                    MsgBox "La référence doit commencer par WO-1N ou WM-X." ' On rejette la Ref.
                End If
            End If
        End If
    End If
Fin:
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error GoTo Fin
    If Target.Count > 1 Then Exit Sub
    If Not Intersect(Target, Range("A2:A1000")) Is Nothing Then
        If Target <> "" Then    ' cellule non vide, donc refus
            MsgBox "Désolé, celle ligne est déjà remplie."
            Exit Sub
        Else
            R = InputBox("Veuillez entrer une référence.", vbYesNo)         ' Remande de Ref
            If R <> "" Then ' Ref entrée non vide
                If Left(R, 5) = "WO-1N" Or Left(R, 5) = "WM-X" Then         ' Début de Ref correcte
                    If Application.CountIf(Range("A:A"), R) = 0 Then        ' Cette Ref n'existe pas
                        Cells(Target.Row, "A") = R                          ' On range la Ref
                    Else                                                    ' sinon
                        L = Application.Match(R, Range("A:A"), 0)           ' Sur quelle ligne existe t-elle
                        MsgBox "Désolé cette référence existe déjà en ligne " & L   ' Message de refus
                    End If
                Else
                    MsgBox "La référence doit commencer par WO-1N ou WM-X." ' On rejette la Ref.
                End If
            End If
        End If
    End If
Fin:
End Sub