Sélectionner et copier toutes les cellules non vides (exception des formules)

[chris6999]

Bonsoir

Une deuxième question pour les experts du Forum à laquelle je ne trouve pas de solution.

Je soushaiterais sélectionner et copier les cellules de la feuille contenant une valeur (donc non vides) mais sans tenir compte des formules présentes.
J'ai trouvé un code qui fonctionne pour le "sélectionner" mais je ne parviens pas à l'enrichie de la notion de coller...

Sub copier()
With Range("A:I")
Cells.SpecialCells(xlCellTypeConstants).Select
End With
End Sub

Merci à tous
Cordialement


J'espère que vous pourrez m'aider

Cordialement