Problème de comparaison entre deux cellules

Option Explicit
'
Public Const Classeur_Maitre = "Retards carnet 070615.xls"
Public Const PageWeb_Maitre = "Retardcarnet2007.htm"
'


Sub Test_Cellules()

    Dim CelluleA As String, CelluleB As String
    Dim NumLigne As Integer, NumColonne As Integer, NumCol As Integer
    Dim NumLigneSeg As Integer, NumColonneSeg As Integer
    Dim Semaine As Variant

    While ActiveCell.Value <> ""
        CelluleA = Cells(NumLigne, NumColonne).Value
        Cells(NumLigne, NumCol).Select
        CelluleB = Cells(NumLigne, NumCol).Value
        Windows(PageWeb_Maitre).Activate
        ' Vérification si retard annoncé
        Semaine = Semaine - 1
        NumColonneSeg = NumColonneSeg + 1
        Worksheets(Semaine).Activate
        Cells(NumLigneSeg, NumColonneSeg).Select
        If Cells(NumLigneSeg, NumColonneSeg).Value = CelluleA & " " & CelluleB Then
            'Concatenation de la cellule cible avec les données sources en rouge
            Cells(NumLigne, NumColonne).Font.ColorIndex = 3
            Cells(NumLigne, NumCol).Font.ColorIndex = 3
            Semaine = Semaine + 1
            NumColonneSeg = NumColonneSeg - 1
            Worksheets(Semaine).Activate
            Cells(NumLigneSeg, NumColonneSeg).Formula = _
                     Cells(NumLigneSeg, NumColonneSeg).Formula & _
                                   Chr(10) & CelluleA & " " & CelluleB
            Windows(Classeur_Maitre).Activate
            NumLigne = (NumLigne + 1)
            Cells(NumLigne, NumColonne).Select
        Else
            'Concatenation de la cellule cible avec les données sources
            Semaine = Semaine + 1
            NumColonneSeg = NumColonneSeg - 1
            Worksheets(Semaine).Activate
            Cells(NumLigneSeg, NumColonneSeg).Formula = _
                     Cells(NumLigneSeg, NumColonneSeg).Formula & _
                                     Chr(10) & CelluleA & " " & CelluleB
            Windows(Classeur_Maitre).Activate
            NumLigne = (NumLigne + 1)
            Cells(NumLigne, NumColonne).Select
        End If
    Wend

End Sub
'

Private Sub Exporter_Click()

    Dim Numligne As Integer, Numcolonne As Integer, Numcol As Integer
    Dim counter As Integer, counter2 As Integer
    Dim Numligneseg As Integer, Numcolonneseg As Integer
    Dim CelluleA As String, CelluleB As String
    Dim seg As String, segment As String, Semaine As String
    Dim feuilleExiste As Boolean, Feuille As Worksheet, NomFeuille As String

    ' Initialisation
    counter = 0: counter2 = 0
    Numligneseg = 5: Numcolonneseg = 1
    Numcolonne = 3: Numligne = 5: Numcol = 4
    CelluleA = 0: CelluleB = 0: seg = 0
    Semaine = 0: segment = 0: feuilleExiste = False

    Workbooks.Open Filename:="L:\Mes documents\Retardcarnet2007.htm"
    'Vérification de la présence de la feuille semaine
    Windows("Retards carnet 070615.xls").Activate
    Range("F1").Select
    Semaine = Range("F1").Value
    Windows("Retardcarnet2007.htm").Activate
    For Each Feuille In Worksheets
        If (Feuille.Name = Semaine) Then
            feuilleExiste = True
        End If
    Next Feuille
    If Not (feuilleExiste) Then
        ' Capture du nom de la feuille active
        NomFeuille = ActiveSheet.Name
        ' Création de la feuille semaine
        Sheets.Add.Name = Semaine
        'Sheets.Add
        Sheets("ORIGINAL").Select
        Cells.Select
        Selection.Copy
        Sheets("Feuil2").Select
        ActiveSheet.Paste
        Application.CutCopyMode = False
        
        ' Ici je me perds !!!
        Range("A1:E1").Select       ' Nouvelle sélection
        Sheets("Feuil2").Select     ' Déjà sélectionné, c'est la feuille active
        Windows("Retards carnet 070615.xls").Activate   ' Déjà activé
        ' Je suspecte ici :
        Sheets(NomFeuille).Select
        Range("F1").Select
        Semaine = Range("F1").Value
        ActiveCell.Value = Semaine
        
        Windows("Retardcarnet2007.htm").Activate
        Sheets(Semaine).Select
        Range("A1").Value = "RETARD CARNET   -    Semaine" & Semaine
    
    Else