Reduction et tri de plusieurs colonnes

Bonjour,

Après avoir copié le kompass, j'ai récupéré toutes les données que j'ai déjà classées et triées.

Je veux faire un décalage des données en supprimant les cases vides.

Le but est de mettre dans une seule colonne, les données de plusieurs colonnes. La seule différence entre les colonnes, pour une même entreprise (ligne A), est les fonctions et les noms associées.

J'ai déjà essayé la touche F5, sélectionner les cellules vides et supprimer vers la gauche mais ça décale tout et les noms des autres entreprises se mélangent

Vous trouverez les données dans le fichier joint qui sera plus parlant.

Merci de me conseiller pour une macro afin d'éviter un travail "titanesque" sur les 95 départements de la France.

Olivier

Bonsoir et bienvenue

En attendant la proposition d'un spécialiste, ce code fonctionne mais dure 22 secondes

Sub Trier()
Dim Derlig As Integer, DerCol As Integer, i As Integer, j As Integer
Application.ScreenUpdating = False

Derlig = Range("A65536").End(xlUp).Row
DerCol = Range("A1").SpecialCells(xlCellTypeLastCell).Column

For i = DerCol To 3 Step -1
If Cells(1, i) = Cells(1, i - 1) Then
For j = 7 To Derlig
If Cells(j, i) > 0 Then
Cells(j, i - 1) = Cells(j, i)
End If
Next j
Columns(i).Delete
End If
Next
End Sub

Amicalement

Nad

Ouah, c'est de la MAGIE !!!

Un grand MERCI à toi Nad