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