Créer des groupes de données

Bonjour,

J'ai une colonne d'environ 580 adresses mail que je souhaiterais diviser en plusieurs colonnes de 30 adresses maximum.

Comment puis-je faire ?

Merci d'avance.

Bonjour,

Voir exemple à adapter dans fichier (Ctrl + Maj + w pour lancer la procédure)

Option Explicit
Sub Découpage_emails()    '
' Découpage_emails Macro'
' Touche de raccourci du clavier: Ctrl+Shift+W
Dim nbRows As Long, i As Long, _
    j As Integer
Const x As Byte = 29
    Application.ScreenUpdating = False
    With Worksheets("Feuil1")
        nbRows = .Range("A" & Rows.Count).End(xlUp).Row
        j = 2
        For i = 1 To nbRows Step x
            .Range(.Cells(i, 1), .Cells(i + x, 1)).Copy Destination:=.Cells(1, j)
            j = j + 1
        Next i
    End With
End Sub