Bonjour,
J'ai un code qui copie une sélection et qui la colle en valeur a la suite d'une plage. Avec ce code cela ne le fait qu'une fois et j'aimerais le réaliser plusieurs fois en un seul clic
Sub copieval()
'
Dim num As Integer
num = 1
a = Range("s54444").End(xlUp).Row + 1
While num < 10
Range("P2:Q17").Select
Selection.Copy
Cells(a, 19).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("s21").Select
num = num + 1
Wend
End Sub
Voici un fichier exemple , dans le fichier d'origine les valeur sont actualiser automatiquement. Merci pour votre aide