Private Sub Masquer() Dim b As Boolean Dim i As Integer For Each b In mycolumns If b = False Then GridView1.Columns[i].Width = 0 Inc i NextEnd