Tant-pis merci quand même je compte prendre en base l'exemple que tu m'as envoyé.
Peux tu simplement me dire comment mettre la couleur rose en rouge.
For i = 2 To UBound(tablo1, 1)
For j = 1 To 4
If Not dico2.exists(tablo1(i, j)) Then
Cells(i, j).Interior.Color = RGB(255, 175, 255) >> j'ai essayé ce code 255, 0, 0
End If
Next j
Next i
For i = 2 To UBound(tablo2, 1)
For j = 1 To 4
If Not dico1.exists(tablo2(i, j)) Then
Cells(i, j + 5).Interior.Color = RGB(255, 175, 255) >> idem 255, 0, 0
End If
Next j
et éventuellement en A1 la formule permettant de savoir le nombre de dossiers sous se niveau après je me débrouille.
Si tu peut ne pas ce n'est pas grave.
Merci @+