Sub Trouve_Vide()
Dim Derlig As Integer, Lig1 As Integer
'Pour activer la feuille
Sheets("Feuil1").Activate
'Déterminer la plage à contrôler de la ligne 1 à derlig
Lig1 = 1 'On peut démarer d'une autre ligne
Derlig = Range("B65536").End(xlUp).Row
'On parcours alors la plage à contrôler
For Each cel In Range("B" & Lig1 & ":B" & Derlig)
If IsEmpty(cel) Then cel.Offset(0, 1) = "ND" 'Si la cellule en B est vide on écrit ND dans la cellule voisine
Next cel
End Sub