XL 2013 MODIF BDD EN FONCTION D1 OK

Sub Maj_Bq()


tablo1 = Sheets("INTERFACE").Range("M8:U" & Sheets("INTERFACE").Range("m" & Rows.Count).End(xlUp).Row)

tablo2 = Sheets("COMPTES").Range("A1:T" & Sheets("COMPTES").Range("A" & Rows.Count).End(xlUp).Row)
For n = LBound(tablo1, 1) To UBound(tablo1, 1)
  If tablo1(n, 9) = "ok" Then
   For M = LBound(tablo2, 1) To UBound(tablo2, 1)
     If tablo1(n, 1) = tablo2(M, 1) Then
         tablo2(M, 15) = "OUI"
     End If
   Next
End If
Next
Sheets("COMPTES").Range("A1").Resize(UBound(tablo2, 1), UBound(tablo2, 2)) = tablo2
End Sub

Sub Maj_Bq()
Dim tablo1 As Variant
Dim tablo2 As Variant
Dim n As Integer
Dim m As Integer

tablo1 = Sheets("INTERFACE").Range("M8:U" & Sheets("INTERFACE").Range("m" & Rows.Count).End(xlUp).Row)
tablo2 = Sheets("COMPTES").Range("A1:T" & Sheets("COMPTES").Range("A" & Rows.Count).End(xlUp).Row)


For n = LBound(tablo1, 1) To UBound(tablo1, 1)
  If tablo1(n, 9) = "ok" Then
   For m = LBound(tablo2, 1) To UBound(tablo2, 1)
     If tablo1(n, 1) = tablo2(m, 1) Then
         tablo2(m, 15) = "OUI"
     End If
   Next
End If
Next
Sheets("COMPTES").Range("A1").Resize(UBound(tablo2, 1), UBound(tablo2, 2)) = tablo2
End Sub