Sub archivage_automatique()
' archivage Macro
Dim dossier As String
Dim i As Integer
Workbooks.Open "C:\Users\Brigitte\Dropbox\BB\xlbb\archives.xlsm"
With Workbooks("affaires.xlsm").Sheets("clients")
'Recherche de la ligne et tri dans chaque feuille
For i = 2 To 400
dossier = .Cells(i, 1).Text
'Copie les valeurs si colonne O = "A" et Q vides
If (.Cells(i, 15)) = "A" And Not IsEmpty(.Cells(i, 17)) Then
.Sheets(dossier).Select
.Sheets(dossier).Move Before:=Workbooks("archives.xlsm").Sheets(1)
Err = 0 'pour savoir si une erreur se produit
End If
Next i
End With
MsgBox "archivage terminé"
End Sub