Sub Test()
Dim tablo1(1 To 4) 'Dimension du tableau Accessoires vendu (4 lignes = 4 années)
Dim tablo2(1 To 12, 1 To 4) 'Dimension d'un tableau contenant au maximum 12 lignes et 4 colonnes (i.e. le max d'infos contenu dans le talbeau Mon stock)
Dim i As Byte, k As Byte
Dim bool As Boolean
x = 1
For k = 1 To UBound(tablo1)
tablo1(k) = Cells(k + 18, 2).Value 'Ici on boucle sur les données du tableau tablo1 c'est à dire Accessoires vendu.
'Les coordonnées du tableau sont ligne 18 et colonne 2 (i.e. colonne B), donc potentiellement à modifier
Next k
For i = 4 To 15 'Ici on boucle sur les données du tableau tablo1 c'est dire Mon stock (de la ligne 4 à la ligne 15
For k = 1 To UBound(tablo1) 'On boucle sur les données de tablo1
If Not tablo1(k) = Cells(i, 2).Value Then bool = True Else: bool = False: Exit For
'On regarde si le serial number (tablo1) est égal ou non au contenu au contenu des données du tableau Mon stock
'Si ce n'est pas égal on met le booleen = vrai, sinon à faux
Next k
If bool = True Then 'Si le booleen = Vrai (i.e. que l'année dans le tableau Accessoires vendu n'est pas dans le talbeau Mon stock
'Alors on stock les infos du tableaux Mon stock dans le tableaux tablo2
tablo2(x, 1) = Cells(i, 2).Value
tablo2(x, 2) = Cells(i, 3).Value
tablo2(x, 3) = Cells(i, 4).Value
tablo2(x, 4) = Cells(i, 5).Value
x = x + 1
bool = False
End If
Next i
For i = 1 To UBound(tablo2)
For k = 1 To UBound(tablo2, 2)
Cells(i + 26, k + 1) = tablo2(i, k) 'On affiche le résultat sur la feuille à partir de la ligne 27 (i+26) colonne 2 (k+1)
Next k
Next i
End Sub