Copies de données si... en ligne

Sub Traitement()
Dim TabTemp As Variant
Dim L As Long, Lauto As Long
      'Charge les données dans un tableau variant temporaire
      With Sheets('Cp')
            L = .Range('E65536').End(xlUp).Row
            TabTemp = .Range(.Cells(3, 5), .Cells(L, 20)).Value
      End With
      'MAJ feuille 'Auto'
      With Sheets('Auto')
            .Range('A265536').ClearContents
            For L = 1 To UBound(TabTemp, 1)
                  If TabTemp(L, 12) = 'X' Then
                        Lauto = .Range('A65536').End(xlUp).Row + 1
                        .Cells(Lauto, 1).Value = TabTemp(L, 1)
                        .Cells(Lauto, 2).Value = TabTemp(L, 2)
                        .Cells(Lauto, 3).Value = TabTemp(L, 15)
                        .Cells(Lauto, 4).Value = TabTemp(L, 16)
                  End If
            Next L
            .Activate
      End With
End Sub

Cliquez pour agrandir...