Sub Extraction()
[A2:H65000].ClearContents
Application.ScreenUpdating = False
Set f = Sheets("Synthèse")
With Sheets("matthieu-end")
Nb = 1: Lig = 0 ' ligne d'écriture
DL = .Range("A65500").End(xlUp).Row
tablo = .Range("A2:A" & DL)
P = Application.CountIf(.Range("A:A"), "data-product-ref=*") + 1 ' Nb REF
ReDim Tout(P, 6)
For L = 1 To UBound(tablo)
T = Split(tablo(L, 1), "=")
Chaine = T(1)
Select Case T(0)
Case "data-product-ref": Tout(Lig, 0) = Chaine
Case "data-product-longitude": Tout(Lig, 1) = Chaine
Case "data-product-latitude": Tout(Lig, 2) = Chaine
Case "data-product-name": Tout(Lig, 3) = Chaine
Case "data-product-destination": Tout(Lig, 4) = Chaine
Case "data-product-base-price-availability": Tout(Lig, 5) = Chaine
Case "data-product-link"
Tout(Lig, 6) = Chaine
Lig = Lig + 1
End Select
Nb = Nb + 1
If Nb = 100 Then
Application.StatusBar = "Progression : " & Lig & " sur " & P
Nb = 1
End If
Next L
End With
Sheets("Synthèse").Range("$A$2").Resize(UBound(Tout, 1), 1 + UBound(Tout, 2)) = Tout
Cells.Replace What:="""", Replacement:="", LookAt:=xlPart, ReplaceFormat:=False
Application.StatusBar = ""
Application.ScreenUpdating = True
Fin:
End Sub