Bonjour toutes et tous
@Denatelo9, un début de réponse à @méliorer
Option Explicit
' module 1
Sub go()
' déclaration variables
Dim sh, i, DernCol As Integer
Dim Ligne
' en cas d erreur
On Error Resume Next
Application.ScreenUpdating = False
Ligne = 6
For i = 2 To Sheets(1).Range("A65536").End(xlUp).Row
If Sheets(1).Range("D" & i) = "ajourner" Then
Sheets("Feuil1").Range("A" & i & ":F" & i).Copy Sheets("Feuil1").Range("I" & Ligne)
Ligne = Ligne + 1
End If
Next i
' direct sur cellule
Sheets("Feuil1").Range("A1").Select
End Sub
ci-joint,
crdlt,
André