Discussion :

[pilounet54]

bonjour j'ai ceci je souhaitrai modifier pour ne copier cas partir de la colonne B

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
For Each a In Worksheets("Alcools et vins").Range("plagevaleuralcoolsetvins")
    If a.Value = "ok" Then
        a.EntireRow.Copy
        .Range("A" & NewLig).PasteSpecial Paste:=xlPasteValues   
        .Range("A" & NewLig).PasteSpecial Paste:=xlFormats
    Application.CutCopyMode = False
            NewLig = NewLig + 1
        End If
    Next a

merci encore