Sub macouleur()
Dim i As Integer
For i = 3 To 700
If Len(Range("A" & i).Value) > 0 And Len(Range("B" & i).Value) = 0 Then
Range("A" & i).EntireRow.Interior.ColorIndex = 6
End If
Next
End Sub
Sub macouleur()
Dim i As Integer
For i = 3 To 700
If Len(Range("A" & i).Value) > 0 And Len(Range("B" & i).Value) = 0 Then
Range("A" & i).EntireRow.Interior.ColorIndex = 6
End If
Next
End Sub
Sub macouleur()
Dim i As Integer
For i = 3 To 700
If Len(Range("A" & i).Value) > 0 And Len(Range("B" & i).Value) = 0 Then
Range("A" & i).EntireRow.Interior.ColorIndex = 6
End If
Next
End Sub
Sub macouleur()
Dim i As Integer
For i = 3 To 700
If Len(Range("A" & i).Value) > 0 And Len(Range("B" & i).Value) = 0 Then
Range("A" & i).EntireRow.Interior.ColorIndex = 6
End If
Next
End Sub