Salut Art, salut le Forum
Art,
Ci dessous la macro colmater_H, petite soeur de colmater que j'avais envoyé il y a quelque temps(fil 740 je crois)
C'est le coup de pot, j'avais oublié de l'archiver
Sub colmater_H()
'Michel_M
' la plage doit être sélectionnée avant de lancer la macro
Dim collect As New Collection
Dim lig, colG, colD, nbre, cptr As Long
' caractéristiques de la plage sélectionnée
With Selection
lig = .Row
colG = .Column
nbre = .Count
End With
colD = colG + nbre - 1
' collecte des cellules non vides
cptr = colG
While cptr <= colD
If IsEmpty(Cells(lig, cptr)) = False Then
collect.Add (Cells(lig, cptr).Value)
End If
cptr = cptr + 1
Wend
Range(Cells(lig, colG), Cells(lig, colD)).ClearContents
' restitution comatée
nbre = collect.Count
cptr = 1
While cptr <= nbre
Cells(lig, cptr + colG - 1) = collect.Item(cptr)
cptr = cptr + 1
Wend
Set collect = Nothing
End Sub