Re : Transformer un tableau en une serie de feuilles (onglets)
voici un début de code qui colore les cellules à transférer, il reste à compléter le code
Sub groupes()
Dim K&, Cll As Variant, Rng As Range, Col&
Dim tablo()
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
K = Range("A65536").End(xlUp).Row
Col = 11
For Col = 1 To Col
Set Rng = Cells(2, Col + 1).Resize(K, 1)
For Each Cll In Rng
If Cll.Value = vbNullString Then
Else
Cll.Interior.ColorIndex = col
End If
Next
Next Col
Set Rng = Nothing
Application.Calculation = xlCalculationAutomatic
End Sub
Cordialement
flyonets