Public Sub newDevis()
Dim L As Integer, Li As Integer
Li = 29
With Worksheets("Soumission")
Union(.Range("A29:A57"), .Range("B29:B57"), .Range("J29:J57")).ClearContents
For L = 14 To Worksheets("Devis").Range("B65536").End(xlUp).Row
If InStr(".13.21.60.103.123.151.", "." & L & ".") = 0 Then
If Cells(L, "C") <> "" Or Cells(L, "F") <> "" Or Cells(L, "G") <> "" Then
.Cells(Li, "A") = Cells(L, 2)
.Cells(Li, "J") = Cells(L, 11)
Li = Li + 1
End If
End If
Next L
End With
End Sub