Sub Tri_Relance()
Dim cel As Range
Dim Bdevis As Range
Dim Rdevis As Range
With Sheets("Relance_Devis")
.Range("A8:Q1000").Clear
End With
Set Rdevis = Worksheets("Relance_Devis").Range("A8")
With Sheets("Base_Devis")
For Each cel In .Range("A8:A1000")
If cel = "En Cours" Then
If Bdevis Is Nothing Then
Set Bdevis = cel.EntireRow
Else
Set Bdevis = Union(Bdevis, cel.EntireRow)
End If
End If
Next
End With
Bdevis.Copy Rdevis
End Sub