Bonjour,
Merci beaucoup cela fonctionne, mais j'ai pas compris l'astuce ???

Y'a t'il un probléme avec les références relatives ?, avant l'erreur n'était pas détectée.

Sans abusé car j'ai pas capté, sous mon autre appli même soucis et pourtant mon code semble correct :

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Application.Intersect(Target, Range("F11:G11")) Is Nothing Then
        If Range("F11") <> "O" Then
           Range("G11") = "N"
        End If
    End If
    If Not Application.Intersect(Target, Range("H11:I11")) Is Nothing Then
        If Range("H11") <> "O" Then
            Range("I11") = "N"
        End If
    End If
   
End Sub

Merci d'avance pour votre aide.

Le mDFcalendar c'est O.K sous EXCEL10

Cordialement, bon courage à tous.