Sub test()
Dim cel1 As Range 'déclare la variable cel1 (CELlule 1)
Dim cel2 As Range 'déclare la variable cel2 (CELlule 2)
Dim p As Worksheet 'déclare la variable p
Dim a As Worksheet 'déclare la variable a
Set p = Sheets("Planning") 'définit la variable p
Set a = Sheets("Autre") 'définit la variable a
For Each cel1 In p.Range("A2:A" & p.Range("A65536").End(xlUp).Row) 'boucle 1 sur toutes les cellules éditée de la colonne A (onglet "Planning")
If cel1.Offset(0, 4).Value = 2 Then 'condition 1 : si la semaine est 2
For Each cel2 In a.Range("A2:A" & a.Range("A65536").End(xlUp).Row) 'boucle 2 sur toutes les cellules éditée de la colonne A (onglet "Autre")
'conditions 2 : 'si les valeurs des colonnes B, C et D sont identiques et que la colonne F ("Planning") est identique à E ("Autre")
If cel1.Offset(0, 1).Value = cel2.Offset(0, 1).Value And _
cel1.Offset(0, 2).Value = cel2.Offset(0, 2).Value And _
cel1.Offset(0, 3).Value = cel2.Offset(0, 3).Value And _
cel1.Offset(0, 5).Value = cel2.Offset(0, 4).Value Then
cel1.Offset(0, 6).Value = cel2.Offset(0, 5) 'récupère la quantité
End If 'fin de la condition 2
Next cel2 'prochaine cellule édité de la colonne A (boucle 2)
Else 'sinon (condition 1)
cel1.Offset(0, 6).Interior.ColorIndex = 1 'colore la cellule de la colonne G ("Planning") en noir
End If 'fin de la condition 1
Next cel1 'prochaine cellule éditée de la colonne A ("Planning")
End Sub