Sub compare()
debut = Timer
Sheets("A renseigner").Range("A2:C65536").ClearContents
Sheets("Non pointé").Range("A2:C65536").ClearContents
ligne = 2
ligne1 = 2
tableau1 = Sheets("Inventaire").Range("A2:C" & Sheets("Inventaire").Range("A65536").End(xlUp).Row)
tableau2 = Sheets("Materiel").Range("A2:C" & Sheets("Materiel").Range("A65536").End(xlUp).Row)
For n = LBound(tableau1, 1) To UBound(tableau1, 1)
For m = LBound(tableau2, 1) To UBound(tableau2, 1)
If tableau1(n, 1) = tableau2(m, 1) Then
ok = True
Exit For
End If
Next m
If ok Then
ok = False
Else
Sheets("A renseigner").Cells(ligne, 1) = tableau1(n, 1)
Sheets("A renseigner").Cells(ligne, 2) = tableau1(n, 2)
Sheets("A renseigner").Cells(ligne, 3) = tableau1(n, 3)
ligne = ligne + 1
End If
Next n
For n = LBound(tableau2, 1) To UBound(tableau2, 1)
For m = LBound(tableau1, 1) To UBound(tableau1, 1)
If tableau2(n, 1) = tableau1(m, 1) Then
ok = True
Exit For
End If
Next m
If ok Then
ok = False
Else
Sheets("Non pointé").Cells(ligne1, 1) = tableau2(n, 1)
Sheets("Non pointé").Cells(ligne1, 2) = tableau2(n, 2)
Sheets("Non pointé").Cells(ligne1, 3) = tableau2(n, 3)
ligne1 = ligne1 + 1
End If
Next n
MsgBox (Timer - debut)
End Sub