Bonjour,
Si j'ai compris ta problématique, je proposerais une fonction personnalisée :
Function DISPO(rdv, adp) As String
Dim i%, j%
Application.Volatile
rdv = Split(rdv)
adp = Split(adp)
For i = LBound(adp) To UBound(adp)
For j = LBound(rdv) To UBound(rdv)
If rdv(j) = adp(i) Then rdv(j) = ""
Next j
Next i
DISPO = IIf(Trim(Join(rdv)) <> "", "Disponible", "Indisponible")
End Function
Elle est à coller dans un module standard et s'utilise comme toute autre fonction d'Excel :
=DISPO(G6;E6)
à recopier vers le bas...
Cordialement.