Sub BOUCLE_CLASSEUR_MF()
Dim k As Integer, i As Integer
Application.ScreenUpdating = False
k = Sheets.Count
derlig = Sheets("GENERAL").Range("a" & Rows.Count).End(xlUp).Row
Call efface
Sheets("GENERAL").Select
For i = 1 To k
For lig = 1 To derlig
x = Sheets(i).Range("a" & Rows.Count).End(xlUp).Row + 1
If Sheets(i).Name <> Sheets("GENERAL").Name Then
If Sheets(i).Name <> Sheets("BDD").Name Then
If Sheets("GENERAL").Cells(lig, 2) = Sheets(i).Cells(1, 27) Then
Sheets("GENERAL").Range(Cells(lig, 1), Cells(lig, 20)).Select
Selection.Copy
Sheets(i).Cells(x, 1).PasteSpecial xlPasteValues
End If
End If
End If
Next lig
Next i
Application.ScreenUpdating = True
MsgBox "Mise à jour terminée !"
End Sub
Sub efface()
Dim k As Integer, i As Integer
k = Sheets.Count
For i = 1 To k
Sheets(i).Activate
dl = Sheets(i).Range("a" & Rows.Count).End(xlUp).Row + 1
If Sheets(i).Name <> Sheets("GENERAL").Name Then
If Sheets(i).Name <> Sheets("BDD").Name Then
Sheets(i).Range(Cells(4, 1), Cells(dl, 20)).ClearContents
End If
End If
Next i
Sheets("GENERAL").Select
End Sub