Bonjour
Je te prie de m'excuser pour le retard de la réponse, mais j'étais bien déborder.
essaye ce code :
Public Sub copier()
Dim c As Range
For Each c In Range("c2:c" & Range("c50000").End(xlUp).Row)
l = Sheets("Analyse").Range("c50000").End(xlUp).Row + 1
If c.Offset(0, 2).Value = "" And _
c.Offset(0, 3).Value = "" And _
c.Offset(0, 4).Value = "" And _
c.Offset(0, 5).Value = "" Then
c.EntireRow.Copy Destination:=Sheets("Analyse").Range("a" & l)
End If
Next c
End Sub
Cette macro copie les lignes à la suite sur la feuille analyse si les colonnes E,F,G et H sont vides.
Salut
Hervé