Sub Remplir_Colonnes_MNO()
Dim i&, n&(1 To 3), a(1 To 3), j%, k%
Application.ScreenUpdating = False
With Sheets("Intervenants AP").[A4:R560] 'plage adaptable
.Columns(13).Resize(, 3) = "" 'RAZ des colonnes M N O
For i = 1 To .Rows.Count
n(1) = Application.CountA(.Cells(1, 13).Resize(i)) 'NBVAL
n(2) = Application.CountA(.Cells(1, 14).Resize(i)) 'NBVAL
n(3) = Application.CountA(.Cells(1, 15).Resize(i)) 'NBVAL
a(1) = .Cells(i, 3): a(2) = .Cells(i, 5): a(3) = .Cells(i, 4)
For j = 1 To 2
If a(j) <> "" Then
For k = j + 1 To 3
If a(j) = a(k) Then If n(j) > n(k) Then a(j) = "" Else a(k) = ""
Next k
End If
Next j
.Cells(i, 13).Resize(, 3) = a
Next i
End With
End Sub