Bonjour à tous,

J'ai une macro dont une partie fonctionne bien en pas à pas mais ne copie pas tout en automatique.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
 
'Copie données
 
Sheets(Nchan).Range("A3:B7").Copy
 
    Sheets("Tft").Range("A3:B7").PasteSpecial Paste:=xlValues
Dim a As Variant
a = 0
Dim cell As Range
    For Each cell In _
        Sheets(Nchan).Range("A9:A313").SpecialCells(xlCellTypeVisible)
    Sheets("Tft").Rows(10 + a).Insert Shift:=xlDown
        Sheets("Tft").Cells(10 + a, 1) = cell.Value
        b = cell.Row
        Sheets(Nchan).Cells(b, 7).Copy
        Sheets("Tft").Cells(10 + a, 3).PasteSpecial Paste:=xlValues
        Sheets("Tft").Range("H9").Copy
        Sheets("Tft").Cells(10 + a, 8).PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
        Sheets(Nchan).Cells(b, 6).Copy
        Sheets("Tft").Cells(10 + a, 6).PasteSpecial Paste:=xlValues
 
            a = a + 1
    Next

Pourriez-vous m'aider?

Merci d'avance