Dim WsF As WorkSheet, WsR As WorkSheet
Dim plage As Range, cel As Range
Dim derlig As Long, lig As Long
Set WsF = Sheets("Feuil1") : Set WsR = Sheets("Routes")
With WsF
If Not IsEmpty(.Range("a3")) <> "" And Not IsEmpty(.Range("b3")) _
And Not IsEmpty(.Range("c2")) And Not IsEmpty(.Range("d2")) Then
With WsR
derlig = .Range("a" & Rows.Count).End(xlUp)
lig = .Range("a" & Rows.Count).End(xlUp) + 1
Set plage = .Range("a2:a" & derlig)
For each cel in plage
If cel Like "*REFERENCE*" Then
cel.Offset(1, 0) = 1
Else
cel.Offset(1, 0) = WsR.Range("a" & lig)
End If
cel.Offset(1, 1) = WsF.Range("a3")
cel.Offset(1, 2) = WsF.Range("b3")
cel.Offset(1, 3)= WsF.Range("c2")
cel.Offset(1, 4) = WsF.Range("d2")
cel.Offset(1, 5) =WsF .Range("h2")
cel.Offset(1, 6) = WsF.Range("j2")
Next cel
End With
End With