Sub MajPasPayer()
Application.ScreenUpdating = False ' empeche la mise a jour de l'ecran = rapidite
Sheets("pas payer").Range("A6:J1005").ClearContents ' on efface tout le tableau pas payer
s = 6
For i = 6 To Range("H65536").End(xlUp).Row 'pour toutes les lignes de 6 à la derniere non vide
If Cells(i, 8) = "" Then ' si la colonne H est vide donc pas payer
'on copie cette ligne dans le tableau pas payer
Sheets("donnes").Range("A" & i & ":G" & i).Copy Destination:=Sheets("pas payer").Range("A" & s)
' copie la tva
Sheets("donnes").Range("I" & i & ":K" & i).Copy
Application.ScreenUpdating = False
Sheets("pas payer").Range("H" & s).PasteSpecial Paste:=xlPasteValues
s = s + 1
End If
Next i
Application.ScreenUpdating = True ' remet a jour l'ecran
End Sub