Dim Classeur As Workbook
Dim Plage As Range
Dim Cel As Range
Dim Work As String
Work = Sheets("Commande").Range("G4").Value
Set Classeur = Workbooks.Open(Filename:="H:\GESTION DE PRODUCTION\Analyse\Analyse du système.xlsm", UpdateLinks:=0)
With Classeur.Sheets("Informations")
Set Plage = .Range(.Cells(1, 3), .Cells(.Rows.Count, 3).End(xlUp))
End With
Set Cel = Plage.Find(Work, , xlValue, xlWhole)
If Not Cel Is Nothing Then
Classeur.Save
Classeur.Close
MsgBox ("Veuillez mettre la référence du client!( ex : non du client . réf)Celle indiquée est déjà utilisée.")
Exit Sub
Else
'ce que tu veux faire si le mot n'est pas trouvé...
End If