Probleme de conditions (if...end if)

Private Sub UserForm_Initialize()

     resultat = ActiveCell.Value
          
    If resultat = "" Then
    
        For Each c In Selection
                r = c.Row
                nomsalle = Cells(r, 4)
                Me.TxbSalle.Value = nomsalle
                
                debut = ActiveCell.Offset(-r + 4, 0)
                Me.TxbdateDebut.Value = debut
                
                b = Selection.Count
                fin = ActiveCell.Offset(-r + 4, b - 1)
                Me.TxbdateFin.Value = fin
        Next c
    
    Else

       For Each c In Selection
                r = c.Row
                nomsalle = Cells(r, 4)
                Me.TxbSalle.Value = nomsalle
                
                [B]debut[/B] = ActiveCell.Offset(-r + 4, 0)
                Me.TxbdateDebut.Value = debut
                
        Next c
        
        line = Sheets("base").[B:B].Find(What:=resultat, LookIn:=xlValues, LookAt:=xlWhole).Row
        Action = Sheets("base").Cells(line, 2)
        salle = Sheets("base").Cells(line, 7)
        [B]debutsess[/B] = Sheets("base").Cells(line, 8)
        finsess = Sheets("base").Cells(line, 9)
        

        If [B]debut = debutsess [/B]Then
        
            Me.CbxFormation.Value = Action
            Me.CbxTypeForma.Value = Sheets("base").Cells(line, 3)
            Me.TxbNumSession.Value = Sheets("base").Cells(line, 4)
            Me.CbxAnimateur.Value = Sheets("base").Cells(line, 5)
            Me.CbxStatutAnimateur.Value = Sheets("base").Cells(line, 6)
            Me.TxbNbInscrit.Value = Sheets("base").Cells(line, 10)
            Me.CbxEtat.Value = Sheets("base").Cells(line, 12)
            Me.TxbPresents.Value = Sheets("base").Cells(line, 13)
            Me.TxbCommentaire.Value = Sheets("base").Cells(line, 14)
            
        End If

End if

End sub