je récupère le numéro de la colonne par
sheets("regroupement").select
colonne=range("T5").value ' t5 étant la cellule contenant le nbval(c48
48)
ma copie devant etre sur un autre feuille
Sub recopie()
Sheets("regroupement").Select
colonne = Range("t5").Value + 3 'pointe le nombre de colonnes pleinnes
For numero = 1 To 2
Sheets("feuil" & numero).Select
p = Range("U1").Value ' U1 de la feuille numero contenant nbval(A:A)
For i = 48 To p + 48
Sheets("regroupement").Select
Cells(i, colonne) = Sheets("feuil" & numero).Cells(i, 1)
Next
colonne = colonne + 1
Next
End Sub("feuil" & numero).cells(i,1)
Tiens moi au courant
Cordialement
G.David