Erreur d'exécution '1004' sous VBA en mode fichier partagé

Bonsoir,

Je bute sur une erreur d'exécution qui ne se révèle pas lors du test en mode partagé du classeur Excel.

Le fichier Excel_2007 de base dispose de nombreuses mises en forme conditionnelles mais qui a nécessité de recourir à une macro Excel afin de faire un test sur la colonne M ( date +120 jours > Date du jour) afin de sélectionner la plage de données constitutives d la ligne concernée en la mettant en rouge (ainsi qu'un Commentaires adéquat).

Le code est le suivant :

Sub Franfinance()

Dim Nolig As Long, DerLig As Long

Dim monRange As String

DerLig = Cells(Application.Rows.Count, 1).End(xlUp).Row

NoCol = 13

For Nolig = 3 To DerLig

Var = Worksheets("Stock").Cells(Nolig, NoCol)

If IsDate(Cells(Nolig, NoCol)) Then

Var1 = Worksheets("Stock").Cells(Nolig, NoCol) + 120

Var2 = Worksheets("Stock").Cells(Nolig, 1)

If Var1 < Date And Var2 <> "Terminée" Then

i = Nolig

monRange = Range("A" & i & ":U" & i).Select

Selection.FormatConditions.Delete

With Selection.Interior

.ColorIndex = 3

End With

Worksheets("Stock").Cells(Nolig, 20).Value = "ACCORD FRANFINANCE CADUC"

End If

End If

Next

End Sub

Je joins également le fichier pour l'aide dont je pourrais bénéficier.

Par avance merci car je désespère sur cette anomalie.

Cordialement SM