Supprimer les cellules vides

Bonjour, quelqu'un peut m'aider a supprimer les cellules vides dans ce fichiers. ci joint les deux captures qui montre quand j'ai essayé de sélectionné les cellules vides ! merci pour votre aide d'avance

bien à vous,

Bonjour à tous,

Je n'ai pas bien compris. Tu selectionnes les colonnes vides et tu fais supprimer

Crdlmt

Bonsoir,

Effectivement, les cellules "vides" semblent être maraboutées...

Avec ce code :

Sub Marabout()
Rows(1).Value = Rows(1).Value
End Sub

Attention, s'il y a des formules, elles seront remplacées par leur valeur...

Donc, plus sûr :

Sub Marabout_Plus_Sur()
Rows(1).SpecialCells(xlCellTypeConstants, 23).Value = Rows(1).SpecialCells(xlCellTypeConstants, 23).Value
End Sub

PS, tu peux remplacer Rows(1) par Cells (des 2 côtés de la formule...)

Bonsoir à tous !

Une proposition ?

=FILTRE(A1:GC1;A1:GC1<>"")

Bonjour,
Une proposition VBA.
Cdlt.

Public Sub DeleteBlankCells()
'
' Supprimer cellules vides ligne 1'
' Raccourci clavier : Ctrl + m
'
Dim lastCol As Long, lCol As Long, rngData As Range
    Application.ScreenUpdating = False
    With ActiveSheet
        lastCol = .Cells(1, .Columns.Count).End(xlToLeft).Column
        For lCol = lastCol To 1 Step -1
            If Not IsEmpty(.Cells(1, lCol)) And Len(.Cells(1, lCol)) = 0 Then
                If rngData Is Nothing Then
                    Set rngData = .Cells(1, lCol)
                Else
                    Set rngData = Application.Union(rngData, .Cells(1, lCol))
                End If
            End If
        Next lCol
    End With
    rngData.EntireColumn.Delete
End Sub

Bonjour @Jean-Eric, Merci pour votre réponse.

Bonjour, Je vous remercie tous pour votre réponse.

Je crois que la macro de @Jean-Eric me va très bien.

Bien à vous,