Sub ListeColonne()
Dim Ligne As Long, Colonne As Long, i As Long, j As Long, DerLigne As Long
Ligne = Range("A1").CurrentRegion.Rows.Count
Colonne = Range("A1").CurrentRegion.Columns.Count
DerLigne = 1
For i = 1 To Ligne
For j = 1 To Colonne
If Cells(i, j).Value <> "" Then
Range("AA" & DerLigne).Value = Cells(i, j).Value
DerLigne = DerLigne + 1
End If
Next j
Next i
End Sub