Peut-être comme ceci en utilisant la méthode find...
Else
Dim trouve As Range
Set trouve = Feuil3.Range("b:b").Find("LIBRE", lookat:=xlWhole)
If Not trouve Is Nothing Then
MsgBox "Cet emplacement existe déjà !" & Chr(10) & " l'emplacement " & trouve.Offset(0, -1) & " est disponible", vbCritical, "Erreur d'emplacement"
End If
Exit Sub