rangement de données

Je n'ai pas vu mon message, c'est pouquoi je le reposte

Bonjour à tous


Voici ma macro :


Private Sub CommandButton1_Click()
Dim I As Integer, compteur2 As Integer, ref(), ind(), lib1(), lib2()
compteur2 = 0
With ListBox1
For I = 0 To .ListCount - 1
If .Selected(I) Then
compteur2 = compteur2 + 1
ReDim Preserve ref(compteur2)
ref(compteur2) = .List(I)
MsgBox (ref(compteur2))
Sheets("base").Select
Range("A1").Select
ActiveCell.Offset(rowOffset:=1, columnOffset:=0).Activate
Cells.Find(What:=ref(compteur2), After:¬tiveCell,
LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByColumns,
SearchDirection:=xlNext, _
MatchCase:úlse).Activate
ActiveCell.Offset(rowOffset:=0, columnOffset:=1).Activate
ReDim Preserve ind(compteur2)
ind(compteur2) = ActiveCell.Text
ActiveCell.Offset(rowOffset:=0, columnOffset:=1).Activate
ReDim Preserve lib1(compteur2)
lib1(compteur2) = ActiveCell.Text
ActiveCell.Offset(rowOffset:=0, columnOffset:=1).Activate
ReDim Preserve lib2(compteur2)
lib2(compteur2) = ActiveCell.Text
ActiveCell.Offset(rowOffset:=0, columnOffset:=-3).Activate
End If
Next
MsgBox compteur2 & " sélection (s)."
End With
'Rangement des données





'Rangement des données
ListBox1.Clear
UserForm_activate
End Sub


Cette macro me permet de récupérer mes données et des les ranger dans un
tableau

Mon problème est de les mettre en place dans une feuille en sachant que :

- dans des cellules ( ex: A1 A2 A3 A7)

Si mon compteur < 7 , pas de problème je sais faire
Si mon compteur >7 , je ne vois pas la solution pour réecrire
dans les même cellules que pécédement
et ainsi de Suite, jusqu'à ce que toutes mes sélections de ma
listebox soient faites.
Après chaque rangement, je les imprime.


Merci d'avance pour l'aide que vous m'apporterez