For i = 1 To 17
ligne = Sheets(i).Range("A65536").End(xlUp).Row
For Each cell In Worksheets(i).Range("B2:B" & ligne)
If cell > 90 And cell < 99 Then
ligne1 = cell.Row
[COLOR="Red"] If cell.Range("D" & ligne1) <> "" Then[/COLOR]
Instructions
End If
End If
Next cell
Next i