'balayage des cellules concernant les infirmiers
For Each Cell In Range("C" & dl, "AG" & dl)
'calcul heures sups par infirmier
Cell.Offset(0, 53).Select
ActiveCell.Formula = "=if(isnumber(RC[-53]),if(RC[-53]>RC2,RC[-53]-RC2),)"
'calcul temps travaillé dans le cas de CM, Genf et AT pour IDE
Cell.Offset(1, 53).Select
ActiveCell.Formula = "=if(R[-1]C[-53]=""CM"",R[-1]C2,if(R[-1]C[-53]=""AT"",R[-1]C2,if(R[-1]C[-53]=""GEnf"",R[-1]C2,)))"
'calcul présence infirmier
Cell.Offset(0, 84).Select
ActiveCell.Formula = "=if(isnumber(RC[-84]),if(RC2=0.4166666666666671,0,1))"
'calcul présence IDE matin bleu clair
Cell.Offset(0, 125).Select
[B]ActiveCell.Formula = "=if((RC[-125]).interior.colorindex=34,1,0)"[/B]
With Cell.Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:="R,CA,RTT,1/2CA,1/2RTT,F,CM,AT,SD,RS,RN,RC,Genf,JH,JF,Cex"
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = ""
.InputMessage = ""
.ErrorMessage = ""
.ShowInput = False
.ShowError = False
End With
Next Cell