Private Sub Btn_raz_Click()
Cells.EntireRow.Hidden = False
End Sub
If ObjTablo Is Nothing Then
If VarType(NbCol) <> vbBoolean Then
If PlgTablo.Rows.Count = 1 Then Set PlgTablo =PlgUti(PlgTablo, LMin:=2)
If NbCol > 0 Then Set PlgTablo = PlgTablo.Resize(, NbCol) _
Else Set PlgTablo = PlgTablo.EntireRow