Sub Macro4()
Dim i As Long, DerniereLigne As Long
Dim NbCol As Long
Dim j As Long
Dim C As Range
NbCol = [a1].CurrentRegion.Columns.Count
DerniereLigne = Sheets("Feuil1").Range("B65536").End(xlUp).Row
For i = 2 To DerniereLigne
For j = 3 To NbCol
Set C = Sheets("Feuil1").Cells(i, j)
If C <> "" And C.Offset(0, 1) = "" Then
C.Interior.ColorIndex = 6
Exit For
End If
Next j
Next i
End Sub