bonjours a tous
j'ai un soucis avec application.union
ce code ne fonctionne pas et ne m'affiche meme pas un message d'erreur
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
Sub archivage()
 dim  r1 as range ,r2 as range, r3 as range
Set r1 = Sheets(1).Range("A18:H18")
 Set r2 = Sheets(1).Range("A26:H26")
 Set r3 = Sheets(1).Range("A27:H27")
Sheets("archive").Cells(Rows.Count, 1).End(xlUp).Offset(2, 6).Resize(3, 11) = Application.Union(r1, r2, r3)
End Sub
quelqu'un peut me dire pourquoi?
merci du retour