Sub Vérifier() 'OK
Dim DerL&, Lig&
DerL = Sheets("Base").Range("A" & Rows.Count).End(xlUp).Row
For Lig = 2 To DerL
If Cells(Lig, 10) = "" And Cells(Lig, 10) <> "" Then 'test à revoir......
With Cells(Lig, 12)
.Value = "Non communiquée" 'on écrit dans la colone K ???
.Font.Bold = True
.Font.ColorIndex = 3
End With
Else
End If
Next Lig
Cells.Columns.AutoFit
Range("A1").Select
End Sub