Re le forum
Voila ta deuxieme macro Christian
Option Explicit
Sub masquer_ligne()
Dim valeur As Range, vide As String, c As Byte
Dim i As Byte
For Each valeur In Range("D2:AJ2")
c = 0
If valeur = vide Or valeur = 0 Then
For i = 2 To 21
If Cells(i, valeur.Column) = vide Or Cells(i, valeur.Column) = 0 Then
c = c + 1
End If
Next i
For i = 25 To 60
If Cells(i, valeur.Column) = vide Or Cells(i, valeur.Column) = 0 Then
c = c + 1
End If
Next i
End If
If valeur.Column < 27 And c = 56 Then
Columns("" & Chr$(64 + valeur.Column) & ":" & Chr$(64 + valeur.Column) & "").EntireColumn.Hidden = True
End If
If valeur.Column > 26 And c = 56 Then
Columns("A" & Chr$(38 + valeur.Column) & ":A" & Chr$(38 + valeur.Column) & "").EntireColumn.Hidden = True
End If
Next
End Sub
Mytå