Google Chrome using Macro

[COLOR=#2C3E50][FONT='inherit']
[LIST=1]
[*]Sub EXPORTONGLETS()
[*]'VALID DECLARATION
[*]    Dim NOMFEUILLE As String    'NAME VARIABLE FOR THE HOME TAB
[*]    Dim NBLIGNES As Long  ' VARIBLE NUMBER OF LINES PROVIDED IN NEWS
[*]    Dim LADATE As Date   ' EXPORT DATE INDICATION
[*]    Dim t$
[*]    With Worksheets("News")
[*]        NBLIGNES = .Range("A" & .Rows.Count).End(xlUp).Row
[*]    End With
[*]    LADATE = Format(CDate(Now), "dd/MM/yyyy")
[*]    'WE LAUNCH A LOOP ON ALL THE LINES OF THE NEWS TAB FROM LINE 2 TO THE END
[*]    For i = 3 To NBLIGNES
[*]        t = GetHash(Worksheets("News").Range("B" & i).Value)    'GetHash
[*]        'RECOVER THE NAME OF THE TAB INDICATED IN COLUMN (A) OF NEWS
[*]        NOMFEUILLE = Worksheets("News").Range("A" & i)
[*]        If IsError(Application.Match(t, Worksheets(NOMFEUILLE).Columns(3), 0)) Then    'check Hash
[*]            'WITH THE DESTINATION SHEET, WE INSERT A LINE IN LINE 3 THEN WE INFORM
[*]            With Sheets(NOMFEUILLE)
[*]                .Rows("2:2").Insert Shift:=xlDown
[*]                .Range("A3").Value = LADATE
[*]                'Worksheets(NOMFEUILLE).Range("B3").Value = Worksheets("News").Range("B" & i).Value
[*]                Worksheets("News").Range("B" & i).Copy .Range("B3")
[*]                .Range("C3").Value = t
[*]                .Rows("3:3").EntireRow.AutoFit
[*]            End With
[*]        End If
[*]        'GO TO THE NEXT NEWS VALUE
[*]    Next i
[*]    With Sheets("News").Activate
[*]    End With
[*]End Sub
[*]Function GetHash(ByVal txt$) As String
[*]    Dim oUTF8, oMD5, abyt, i&, k&, hi&, lo&, chHi$, chLo$
[*]    Set oUTF8 = CreateObject("System.Text.UTF8Encoding")
[*]    Set oMD5 = CreateObject("System.Security.Cryptography.MD5CryptoServiceProvider")
[*]    abyt = oMD5.ComputeHash_2(oUTF8.GetBytes_4(txt$))
[*]    For i = 1 To LenB(abyt)
[*]        k = AscB(MidB(abyt, i, 1))
[*]        lo = k Mod 16: hi = (k - lo) / 16
[*]        If hi > 9 Then chHi = Chr(Asc("a") + hi - 10) Else chHi = Chr(Asc("0") + hi)
[*]        If lo > 9 Then chLo = Chr(Asc("a") + lo - 10) Else chLo = Chr(Asc("0") + lo)
[*]        GetHash = GetHash & chHi & chLo
[*]    Next
[*]    Set oUTF8 = Nothing: Set oMD5 = Nothing
[*]End Function
[/LIST]
[/FONT][/COLOR]