Bonjour, voici ce que ma fait Sylvanu et ça fonctionne super bien, mais pas sur GSheets
	
	
	
	
	
		
et j'aimerais l'adapter sur GSheets
Merci et belle journée
Kinay
	
		
			
		
		
	
				
			
		VB:
	
	
	Sub Worksheet_Change(ByVal T As Range)
    If T.Count > 1 Then Exit Sub
    If Not Intersect(T, [B13]) Is Nothing Then      ' Si B13
        Application.ScreenUpdating = False          ' Figer écran
        Columns("C:OE").EntireColumn.Hidden = True  ' Tout démasquer
        ' Masquer du début à la semaine considérée
        Range(Cells(1, 7 * [B13] - 6), Cells(1, 395)).EntireColumn.Hidden = False
    End If
End Sub
	et j'aimerais l'adapter sur GSheets
Merci et belle journée
Kinay