Sub Traitement()
Dim R As Range
Dim Rowkit As Long
Dim nomkit As String
' ...
' ...
' ...
With ActiveSheet
Set R = .Columns(1).Find(nomkit, , , , , xlNext, True)
If Not R Is Nothing Then
Rowkit = R.Row
'instructions si vrai
'...
Else
'instructions si faux
'...
End If
End With
End Sub