masquer des colonnes par macro avec condition

Bonjour,

toujours un peu de mal avec le vba
je désir que si F1=1 alors on affiche la colonne H2 de la feuille "base" dans la feuille "virement" et la feuille "espéce"
et si F2=2 alors afficher I2 dans la feuille virement et espéceet si F2=2+3 alors afficher I2 et J2 etc en tenant compte tout les condition possible.
le classeur ci-joint explique bien le probléme
merci d'avance

Bonjour,

Mets cette macro dans le module de la feuille :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22

Private Sub Worksheet_Change(ByVal Target As Range) Dim Ligne As Long, Col As Integer If Target.Address = "$F$1" Or Target.Address = "$F$2" Then Ligne = Cells(Rows.Count, 1).End(xlUp).Row If Target.Count > 1 Then Exit Sub [virement!E:G].Clear [espéce!E:G].Clear If [F1] = 1 Then [H1].Resize(Ligne).Copy [virement!E1] [H1].Resize(Ligne).Copy [espéce!E1] End If If [F2] = 2 Then Col = [virement!IV1].End(xlToLeft).Column + 1 [I1].Resize(Ligne).Copy Sheets("virement").Cells(1, Col) [I1].Resize(Ligne).Copy Sheets("espéce").Cells(1, Col) ElseIf [F2] = 5 Then Col = [virement!IV1].End(xlToLeft).Column + 1 [I1:J1].Resize(Ligne).Copy Sheets("virement").Cells(1, Col) [I1:J1].Resize(Ligne).Copy Sheets("espéce").Cells(1, Col) End If End If End Sub

---