Option Explicit
Sub Macro1()
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Dim Déb As Integer
Dim Fin As Integer
Dim i As Integer
Dim j As Integer
Dim Cel As Range
Dim CelluleTrouvee1 As Range
Dim ColFinale1 As Integer
Dim celluletrouvee2 As Range
Dim colfinale2 As Integer
Dim cellule_estimated1 As Range
Dim col_estimated1 As Integer
Dim cellule_estimated2 As Range
Dim col_estimated2 As Integer
Dim x As Variant
Dim Cell As Variant
Call Erase1
Call Chargement_donnees
Call Recherche1
Call NomscolHSBC
'Comparaison ID HSBC avec Journal
With Sheets("JOURNAL")
Déb = 2
Fin = .Range("e" & .Rows.Count).End(xlUp).Row
End With
With Sheets("HSBC")
i = 1
Do While i < Fin
For j = Déb To Fin
If .Range("b" & i).Value = Sheets("JOURNAL").Range("e" & j).Value _
Then .Range("p" & i).Value = Sheets("JOURNAL").Range("a" & j).Value
Next j
i = i + 1
Loop
End With
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub ()