Private Sub Worksheet_Activate()
Dim i&, n&
Application.ScreenUpdating = False
Cells.Delete 'RAZ
With Sheets("Relevés")
For i = 42 To 113
If Application.CountA(.Rows(i)) Then
n = n + 1
.Rows(i).Copy Cells(n, 1)
If n > 1 Then If Cells(n, 1).Interior.ColorIndex <> xlNone And _
Cells(n - 1, 1).Interior.ColorIndex <> xlNone Then Rows(n - 1).Delete: n = n - 1
End If
Next
If Cells(n, 1).Interior.ColorIndex <> xlNone Then Rows(n).Delete 'dernière ligne copiée
For i = 1 To 15
Columns(i).ColumnWidth = .Columns(i).ColumnWidth 'largeur des colonnes
Next
End With
End Sub