Bonjour,

J'ai ce bout de code qui fonctionne mais je voudrais aller plus loin en masquant des colonnes.

j'avais pensé à qqc comme cela : Columns(?? & ":XFD").Hidden = True

Mais comment lui de remplacer les ?? par le résultat de V + 4 colonnes


Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub CBTNMove_Click()
    
    Dim V
            
    V = Application.VLookup(CBTNMove.Caption, Range("setup!SetupImportMois"), 2, 0)
        
    
    If IsError(V) Then Exit Sub
    Application.EnableEvents = False
    Application.Goto Reference:=Worksheets("MOIS-MAAND").Range(V & "1").Offset(, -1), Scroll:=True
    ?????????
    Application.EnableEvents = True
    
End Sub

Merci pour l'aide ou la direction à suivre.