Bonjour,
merci beaucoup. Par contre ça ne fonctionne pas avec les autres armoires pour le soulignement... du coup j'ai adapté avec ça :
If UCase([T_listing].Item(i, 10)) = "X" Then
.Range(.Cells(lig, col +1), .Cells(lig, col + 1)).Font.Underline = xlUnderlineStyleSingle
End If
ça m'a l'air tout ok avec