boucle

[amel]

Bonjour le forum!
j'ai un code qui selectionne une cellule de la feuille temoin2, le copy et la colle dans une autre cellule de la feuille 2005. Je dois effectuer cette manip' pour un certain nombre de cellule, c'est pourquoi j''aimerais adapter ce code (l'integrer dans une boucle par exemple) pour eviter de le refaire 100fois...
Si quelqu'un a une idée, elle est la bienvenue..
Merci de votre aide...

Dim Derlg
Worksheets('temoin2').Activate
Me.Range(' AE3').Select
Selection.End(xlDown).Select
Derlg = ActiveCell.Address
Worksheets('temoin2').Range(Derlg).Copy _
Destination:=Worksheets('2005').cells(2, 3)

 

[Bebere]

bonjour
copier quoi :
une plage de cellules
des cellules indépendantes
donne un exemple

Sub Ecrit()
Dim Derlg As String
'les 2 lignes suivantes font la même chose que ton code
Derlg = Worksheets('temoin2').Range(' AE3').End(xlDown).Address
Worksheets('2005').Cells(2, 3) = Worksheets('temoin2').Range(Derlg).Value
'exemple de boucle
For Each cel In Worksheets('temoin2').Range('A1:A12')
If Not cel Is Nothing Then
l = l + 1
Worksheets('2005').Cells(l, 1).Value = cel
End If
Next cel
End Sub