Application.Calculation = xlCalculationManual 'beaucoup de lignes donc passage en calcul manuel
nouvligvideo = Sheets("Video Call Detail List").Range("B" & Rows.Count).End(xlUp).Row + 1 'declaration variable
derligne = Sheets("Video Call Detail List").Range("B" & Rows.Count).End(xlUp).Row 'declaration variable
'Remplissage colonne AT
'
'Range("AT" & nouvligvideo & ":AT" & derligne).FormulaR1C1 = _
"=SI(TEXTE(RC[-38],""hh:mm:ss"")=""00:00:00"";""NO COUNT"";SI(RC[-30]=""OUTGOING"";SI(STXT(RC[-44];1;2)=""VC"";""Room"";SI(STXT(RC[-44];1;3)=""GVA"";""GVA"";SI(RC[-44];1;3)=""RMX"";""Bridged"";SI(STXT(RC[-44];1;3)=""RNIS"";""RNIS"";SI(STXT(RC[-44];1;6)=""ISDN 1"";""ISDN"";SI(DROITE(RC[-44];10)=""CMADesktop"";""CMAD"";SI(DROITE(RC[-44];5)=""RMX 1"";""Bridged"";""Others"")))))));SI(STXT(RC[-36];1;2)=""VC"";""Room"";SI(STXT(RC[-36];1;3)=""GVA"";""GVA"";SI(STXT(RC[-36];1;3)=""RMX"";""Bridged"";SI(STXT(RC[-36];1;4)=""RNIS"";""RNIS"";SI(STXT(RC[-36];1;6)=""ISDN 1"";""ISDN"";SI(DROITE(RC[-36];10)=""CMADesktop"";""CMAD"";SI(DROITE(RC[-36];5)=""RMX 1"";""Bridget"";""Others"")))))))))"