Bonjour tout le monde,
Je sollicite votre aide. Je sais pas si ma demande est faisable mais j'ai détaillé dans le fichier dans le fichier ci-joint mon besoin.
Merci pour votre assistance et espérant votre retour,
Meilleures salutations
J'ai un début de solution, mais qui ne marche que si tu défusionnes tes colonnes...
Code:
Sub HideColumns()
Dim numEntite As String
numEntite = Range("B1").Value
For Each cell In ActiveSheet.Range("D4:BR4")
If cell.Value <> numEntite Then
Columns(cell.Column).Select
Selection.EntireColumn.Hidden = True
End If
Next cell
End Sub