Copier et regrouper cellules

Bonjour à tous,

J'aimerai copier une colonne A de la Feuil1 de mon fichier vers la Feuil2.

Des cellules en colonne A sont fusionnée. La macro qui me permet de faire la copie les défusionnent.

Seulement il y'a des cellules vides entre les information et j'aimerai faire remonter ces cellules vides pour que les cellules remplies soient groupées.

Private Sub CommandButton1_Click()
Application.EnableEvents = False

        With Sheets("Feuil1")
         Sheets("Feuil1").Range("A:A").Copy
         Sheets("Feuil2").Range("A:A").PasteSpecial Paste:=xlValues
      End With
Application.EnableEvents = True
End Sub

Pensez-vous que ça soit possible ?

En vous remerciant et bonne après-midi !

Bonjour,

rajoute peut être ces instructions :

On Error Resume Next 'au cas ou aucune cellule vide
Sheets("Feuil2").Range("A:A").SpecialCells(xlCellTypeBlanks).Delete xlShiftUp
On Error GoTo 0

bon après midi

@+

Re Pierrot,

Super, merci beaucoup c'est top !

@+