Sub archive()
tablo = Sheets("Base de donnees").Range("A4:P" & Sheets("Base de donnees").Range("A" & Rows.Count).End(xlUp).Row)
Set dico = CreateObject("Scripting.dictionary")
For n = LBound(tablo, 1) To UBound(tablo, 1)
For m = 7 To 14
If tablo(n, m) = "X" Or tablo(n, 14) > 0.1 Then
x = n + 3
dico(x) = ""
End If
Next
Next
a = dico.keys
With Sheets("Archives")
fin = .Range("A" & .Rows.Count).End(xlUp).Row
For n = LBound(a) To UBound(a)
Sheets("Base de donnees").Rows(a(n)).Copy Destination:=.Rows(fin + 1)
fin = fin + 1
Next n
.Activate
End With
End Sub