castor30
XLDnaute Occasionnel
Bonjour,
Le code ci-dessous ne fonctionne pas, pouvez-vous me dire ou cela blesse
en vous remerciant.
Le code ci-dessous ne fonctionne pas, pouvez-vous me dire ou cela blesse
Code:
Sub Import() ' Coller à partir de A2 puis une ligne sur deux
Sheets("Base").Select
Application.Goto Reference:="MalistNom"
Selection.Copy
j = 1
For i = 1 To 2 Step 3
j = j + 2
Sheets("Visite").Range("A2").Paste
Next i
Sheets("Base").Select
Application.CutCopyMode = False
End Sub
en vous remerciant.