récuperer une plage de cellule avec activecell?

oh jojo

pas utile de multiplier les posts

regarde d'abord les reponses aux precedents

Bonjour,

Ci-après une tentative :

Sub Essai()
a=''
For Each c in Selection
a = a & c
Next c
range('a1') = a
End Sub

Cela balaye la sélection et crée une string avec toutes les cellules sélectionnées.
Je crois que c'est nul mais quand même...

A+ Vekmort