Columns("G:HL").EntireColumn.Hidden = False
Rows("5:51").EntireRow.Hidden = False
' Masque les lignes sous la dernière cellule non vide dans la colonne A jusqu'à la ligne 55
'For i = lastRow + 1 To 49
' ws.Rows(i).Hidden = True
'Next i
ws.Rows(lastRow + 1 & ":" & 49).Hidden = True