If/then/else combiné avec Find

Set PlageDeRecherche = Sheets("code source").Columns(1) 'on définit la plage de recherche : onglet code source, colonne 1
    disponible = "<span id=""availability_value"" class=""available"">" 'On affecte à la variable disponible la valeur recherché
    'indisponible = "<span id=""availability_value"" class=""outofstock"">"   'il s'agit de la variable qui est présente si le produit n'est pas disponible
 
    Set Trouve = PlageDeRecherche.Cells.Find(what:=disponible, LookAt:=xlWhole) 'On lance la recherche pour trouver la variable disponible (enfin une partie seulement du texte)
   '--------------------------------------------------------------------------------------------------------------
   If disponible=""  Then             ' Si Vide alors Indisponible
        Sheets("liste").Cells(j, 2) = "indisponible" 'résultat de l'erreur suite à plagederecherceh.cells.find qui ne renvoie rien
    Else
        Sheets("liste").Cells(j, 2) = Trouve.Value 'le résultat lorsque tous marche
    End If

  Set Trouve = PlageDeRecherche.Cells.Find(what:=disponible, LookAt:=xlPart) 'On lance la recherche pour trouver la variable disponible (enfin une partie seulement du texte)
   '----------------------------------------------------------------------------------------------------------------------------------------------------------------------------
  
    If Trouve Is Nothing Then
  
   Sheets("liste").Cells(j, 2) = "indisponible"
  
    
   Else
    Sheets("liste").Cells(j, 2) = Trouve.Value 'le résultat lorsque tout marche
    
  End If

Sub Mise_a_jour_disponibilité_boucle_épurée()
 
 vchrono = Now()
 
  Dim L As Worksheet, C As Worksheet, adresse_URL As String
  Dim Trouve As Range, PlageDeRecherche As Range
  Dim disponible As String, DL As Integer, j As Integer, indisponible As String
 
  ScreenUpdating = False
 
 
  
    Set L = Worksheets("Liste") 'Je définie mon onglet liste par L
    Set C = Worksheets("code source") 'Je définie mon onglet code source par C
    
    DL = L.Cells(Application.Rows.Count, "A").End(xlUp).Row
    
    For j = 1 To DL

    adresse_URL = L.Cells(j, 1) 'L'adresse URL se trouve dans la feuille L (liste),première colonne
    codeHtml = htmlCodePage(adresse_URL) 'j'affecte ma variable adresse_URL a ce petit boût de code qui necessite un pack complémentaire pour fonctionner
    Sheets("code source").Activate 'J'active la feuille ou je veux les données
    
    codeHtml = Split(codeHtml, Chr(10)) 'Division par ligne de code
    For i = 0 To UBound(codeHtml) 'je ne comprend pas cette partie du code
        Cells(i + 1, 1) = codeHtml(i) 'je ne comprend pas cette partie du code
    Next 'je ne comprend pas cette partie du code
    
    'résultat je me retrouve avec le code source sur l'onglet code source et je peux lancer ma recherche
    
    Set PlageDeRecherche = Sheets("code source").Columns(1) 'on définit la plage de recherche : onglet code source, colonne 1
    
    disponible = "<span id=""availability_value"" class=" 'On affecte à la variable disponible la valeur recherché
    
    Set Trouve = PlageDeRecherche.Cells.Find(what:=disponible, LookAt:=xlPart) 'On lance la recherche pour trouver la variable disponible (enfin une partie seulement du texte)
   '----------------------------------------------------------------------------------------------------------------------------------------------------------------------------
  
    If Trouve Is Nothing Then
  
   Sheets("liste").Cells(j, 2) = "URL inactive" '
      
   Else
    Sheets("liste").Cells(j, 2) = Trouve.Value 'le résultat lorsque tout marche
    
  End If
    
    Set Trouve = Nothing
    Set PlageDeRecherche = Nothing
    Sheets("code source").Columns(1).ClearContents
    
    Next j
    
   vchrono = Now() - vchrono

MsgBox Format(vchrono, "h:mm:ss")
  
End Sub

 codeHtml = Split(codeHtml, Chr(10)) 'Division par ligne de code
    For i = 0 To UBound(codeHtml) 'je ne comprend pas cette partie du code
        Cells(i + 1, 1) = codeHtml(i) 'je ne comprend pas cette partie du code
    Next 'je ne comprend pas cette partie du code