Sub Copier_Ligne_Global_Plus_Nettoyage()
Application.ScreenUpdating = False
Dim C, I, Compteur, N, V, Total_onglet As Integer
Total_onglet = ThisWorkbook.Sheets.Count
Dim sArch As Worksheet
Set sArch = Worksheets("Archives")
Dim derLig As Long
derLig = sArch.Cells(Rows.Count, 1).End(xlUp).Row
Dim lastLig As Long
Dim CelVide As Range
For V = 4 To Total_onglet
Sheets(V).Activate
lastLig = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
If lastLig > 3 Then
Range(Cells(4, 1), Cells(lastLig, 19)).Select
Selection.EntireRow.Delete
Else
End If
Next V
sArch.Activate
Cells.EntireColumn.Hidden = False
For Compteur = 4 To Total_onglet
sArch.Activate
C = 4
For I = 3 To derLig
If sArch.Cells(I, 1).Text = ThisWorkbook.Sheets(Compteur).Name Then
sArch.Range(Cells(I, 2), Cells(I, 20)).Copy
ThisWorkbook.Sheets(Compteur).Cells(C, 1).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
C = C + 1
End If
Next I
Next Compteur
For N = 4 To Total_onglet
Sheets(N).Activate
lastLig = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
Range(Cells(4, 1), Cells(lastLig, 19)).Select
Selection.Borders.Value = 1
For Each CelVide In Range(Cells(4, 1), Cells(lastLig, 19))
If CelVide = "" Then CelVide.Interior.Color = RGB(206, 206, 206)
Next CelVide
Cells(lastLig + 1, 1).Activate
Cells(lastLig + 1, 1).Show
Next N
sArch.Activate
Range("A:A").EntireColumn.Hidden = True
Cells(lastLig, 2).Activate
Cells(lastLig, 2).Show
Application.CutCopyMode = False
Application.ScreenUpdating = True
End Sub