Sub compare_liste_tableaux()
Dim m%, n%, te, tc, derle%, derlc%
Set she = Sheets("Extraction")
Set shC = Sheets("Causeries")
te = she.Range("A6:F" & she.Cells(Rows.Count, 1).End(xlUp).Row)
tc = shC.Range("A6:F" & shC.Cells(Rows.Count, 1).End(xlUp).Row)
derle = she.Cells(Rows.Count...