Sub RELEVEENCOURS_3()
Dim colonne As Long
Application.ScreenUpdating = False
If Range("E4") = "" Then
Columns("K:GN").Hidden = True
Else
colonne = Range("IV4").End(xlToLeft).Column + 4
Range(Cells(4, 4), Cells(4, colonne)).EntireColumn.Hidden = True
Range(Cells(4, colonne + 8), Cells(4, 200)).EntireColumn.Hidden = True
'Application.Union(Range(Cells(4, 4), Cells(4, colonne)), _
Range(Cells(4, colonne + 8), Cells(4, 200))).EntireColumn.Hidden = True
End If
Range("A7").Select 'inutile
Application.ScreenUpdating = True
End Sub