Private Sub Worksheet_Activate()
Dim ncol%, lig&, i&, a, j%
ncol = 8 'nombre de colonnes
lig = 1
Application.ScreenUpdating = False
Rows("2:" & Rows.Count).Delete 'RAZ
With Sheets("New").[A1].CurrentRegion.Resize(, ncol)
For i = 2 To .Rows.Count
If .Cells(i, 1).Interior.Color <> vbWhite Then
lig = lig + 1
.Rows(i).Copy Cells(lig, 1) 'copier-coller
a = .Rows(i) 'matrice, plus rapide
For j = 3 To ncol
If .Cells(i, j).Interior.Color = vbWhite Then a(1, j) = "A modifier"
Next j
Cells(lig, 1).Resize(, ncol) = a 'restitution
End If
Next i
End With
End Sub