Sub Supprimer_Produit()

Dim TrouveC As Range, PlageDeRechercheC As Range
Dim Valeur_ChercheeC As String, AdresseTrouveeC As String

'dans la première colonne de la feuille active
'Sheets("Fiche_Produit").Select
Set PlageDeRechercheC = Sheets("Commande").Columns(4)

Set TrouveC = PlageDeRechercheC.Cells.Find(what:=code_article, lookat:=xlWhole)

'traitement de l'erreur possible : Si on ne trouve rien :
If TrouveC Is Nothing Then
'ici, traitement pour le cas où la valeur n'est pas trouvée
    AdresseTrouveeC = Worksheets("Fiche_Produit").Range("B4") & " n'est pas présent dans " & PlageDeRechercheC.Address
Else
'ici, traitement pour le cas où la valeur est trouvée
    AdresseTrouveeC = TrouveC.Address
    RowTrouveeC = TrouveC.Row
End If

MsgBox RowTrouveeC
End Sub