'Colonne qui correspond à la semaine
Set plgSemaine = plgDatas.Columns(NumSem + 9)
'ne retenir dans la colonne de la semaine en cours que les cellules contenant des nombres
If plgDatas.Rows.Count > 1 Then Set plgSemaine = plgSemaine.SpecialCells(xlCellTypeConstants, xlNumbers)