Ne fait rien si

Bonjour tous le monde,

J'ai ce bout de code que je voudrai modifier

Private Sub CommandButton2_Click()
ActiveSheet.Unprotect
Dim plage As Range
Dim Cell As Range
Dim Dernligne As Long
Dim L As Long
Dim CodeRech As String
Dernligne = Sheets("Source").Range("A" & Rows.Count).End(xlUp).Row
CodeRech = ComboBox2.Value
With Sheets("Source")
Set plage = .Range("A2:A" & Dernligne)
For Each Cell In plage
 If Cell.Value = CodeRech Then
  .Cells(Cell.Row, 6).ClearContents
 End If
Next Cell
End With
ComboBox2.Value = ""
MsgBox "sortie effectuée"
With Sheets("Source")
L = Dernligne + 1
.Cells(L, 6).ClearContents
End With
Sheets("Source").Range("I2:I1051").Copy
Sheets("Source").Range("D2").PasteSpecial Paste:=xlPasteValues

Unload Me
ActiveSheet.Protect
UserForm2.Show
End Sub

J'ai une colonne H ou je trouve le mot "libre" ou "Quarantaine" pour chaque ligne.

Ce que joue voudrai faire est exécuter cette macro seulement si le mot libre est dans la colonne H si non un msgbox (impossible d'effectuer)

Merci d'avance

Salut

par quoi est remplis le CodeRech

par un chiffre : ex 00001 - 00002 ...

Merci

essaye ça :

If Cell.Value = CodeRech And Cell.Offset(0, 8) = "libre" Then

Merci pour votre réponse, mais comment faire pour le msgbox j'ai pas réussi à le faire

Salut

essaye ça :

 If Cell.Value = CodeRech And Cell.Offset(0, 8) = "libre" Then
   .Cells(Cell.Row, 6).ClearContents
   MsgBox "effectuer"
Else
   MsgBox "impossible d'effectuer"
 End If

Merci pour votre assistance j'ai trouvé la solution :

Private Sub CommandButton2_Click()
On Error Resume Next
  Dim sel As Range
  Worksheets("Source").Unprotect
      Set sel = Sheets("Source").Cells.Find(Me.ComboBox2.Value, , xlValues, xlWhole)

If Cells(sel.Row, 8).Value = "ACCEPTED" Then
Cells(sel.Row, 6).ClearContents
Cells(sel.Row, 4).ClearContents
Cells(sel.Row, 8).ClearContents
Else
Unload Me
UserForm6.Show

ActiveSheet.Paste Link:=True

    Unload Me
    Range("A1").Select
    Worksheets("Source").Protect
    End If
End Sub