Autres Copier une ligne sous conditions ainsi que celles qui suivent

Pépito095

XLDnaute Nouveau
Bonjour tout le monde, je souhaite copier une ligne sous condition sur une deuxième feuille, jusque là j'y arrive.. Le problème est que j'ai besoin aussi des lignes qui se trouvent sous la cellule condition, alors qu'elles sont vides

Ma cellule condition se trouve dans la colonne "A", et la condition c'est "Total par code taxe", des fois la ligne est seule et d'autre fois justement il y a des lignes avec l première cellule vide qui m'intéresse

En vous remerciant par avance

Voici mon code...

Sheets.Add After:=Sheets(Sheets.Count)
ActiveSheet.Name = "Recap TVA Deb"
Dim Rw As Range
Dim Ligne As Long
Sheets("Sheet1").Select
ActiveCell.SpecialCells(xlLastCell).Select
Range(Selection, Cells(1)).Select

For Each Rw In Selection.Rows
Ligne = Rw.Row
If Rw.Cells(1, 1).Value = "Total par code taxe" Then
Rw.Copy Destination:=Worksheets("Recap TVA Deb").Cells(Ligne, 1)
End If
Next Rw

Sheets("Recap TVA Deb").Select
Columns("A:L").EntireColumn.AutoFit

For I = [A50000].End(xlUp).Row To 1 Step -1
If Cells(I, 1) = none Then Rows(I).Delete
Next I

Rows("1:1").Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove

Range("A1").Select
ActiveCell.FormulaR1C1 = "Intitulés"

Range("B1").Select
ActiveCell.FormulaR1C1 = "Code TVA"

Range("C1").Select
ActiveCell.FormulaR1C1 = "Base TVA Coll"

Range("D1").Select
ActiveCell.FormulaR1C1 = "TVA coll"

Range("E1").Select
ActiveCell.FormulaR1C1 = "Base TVA ded"

Range("F1").Select
ActiveCell.FormulaR1C1 = "TVA ded"

Columns("A:F").EntireColumn.AutoFit
 

Fichiers joints


Haut Bas