addition de résultats

=SI(NBVAL(D3:M3)=0;"";EQUIV("X";D3:M3;0))

=SI(NBVAL(O3;O10;O17;O25)=0;"";MOYENNE(O3;O10;O17;O25))

Option Compare Text
Private Sub Worksheet_Change(ByVal Target As Range)
Dim j%
If Not Intersect(Target, Range("B" & Target.Row & ",D" & Target.Row & ":M" & Target.Row)) Is Nothing Then
    For j = 2 To 12
        If Cells(Target.Row, j).Value = "x" Then
            If result = "" Then
                result = Cells(Target.Row + 1, j).Value
            Else
                MsgBox "Il y a deja une croix dans l'échelle, veuillez renseigner une seule valeur !!!", vbExclamation + vbOKOnly
                Exit Sub
            End If
        End If
    Next j
    Range("O" & Target.Row).Value = result
End If
End Sub