userrrqi115
Messages postés181Date d'inscriptionmardi 18 novembre 2008StatutMembreDernière intervention 4 février 2011 24 janv. 2011 à 11:30
Hello,
Ceci devrait t'aider
Sub MiseenGrasConditionnelle()
r = Cells(65536, 2).End(xlUp).Row 'derniere cellule non vide de B
For Each cell In Range(Cells(1, 2), Cells(r, 2))
If cell.Value <> "" Then
Rows(cell.Row).Font.Bold = True
End If
Next cell
End Sub