Bonjour le Forum,

j'ai besoin de votre aide pour modifier le code suivant qui, dans le fichier joint, permettra de recopier successivement les valeurs de la colonne "A" dans la colonne "D".

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub Macro1()
'
' Macro1 Macro
'
            ActiveSheet.Unprotect
    Range("A1").Select
    Selection.Copy
    Range("D1").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False
 
            ActiveSheet.Protect
End Sub
La macro1 est une macro d'essai qui sera remplacée par une autre pour chacune des valeurs présentes dans la colonne "A".
La colonne "A" comprend plus de 200 valeurs.

Je vous remercie pour vos réponses et vous souhaite un bon après-midi.
Cordialement.

Nonno 94.