Sub MaskSem1()
Dim Cellule As Range
Dim PositionMot As Integer
For Each Cellule In ActiveSheet.Range("E8:E105").Cells
With Cellule
PositionMot = InStr(1, .Value, "Paiement") + InStr(1, .Value, "Règlement") + InStr(1, .Value, "Remboursement")
Select Case PositionMot
Case 0
.Rows.RowHeight = 0
Case Else
.Rows.RowHeight = 15
End Select
End With
Next Cellule
End Sub