remplissage sur autre feuille par recherche (set find)

Private Sub Inserer_Click()

Dim moistest As Range
Dim col As Integer

   
    Set moistest = Sheets("2014_exemple").Rows(3).Cells.Find(145, LookIn:=xlValues)
    If Not moistest Is Nothing Then
        col = moistest.Column
    Else
        MsgBox "pas trouvé"
    End If
 


End Sub

Private Sub Inserer_Click()

Dim cmpte, crit1, crit2, precision, date_op, montant, last As Variant
Dim moistest As Range
Dim col As Integer

If IsEmpty(Range("B6")) Or IsEmpty(Range("C6")) Or IsEmpty(Range("D6")) Or (Range("D6").Value = "Autre" And IsEmpty(Range("E6"))) Or IsEmpty(Range("F6")) Or IsEmpty(Range("G6")) Then
    MsgBox "Merci de remplir TOUS les critères en noir"
Else
    cmpte = Right(ActiveSheet.Range("B6").Value, 1) 'on regarde quel compte est concerné : 1,2 ou 3
    crit1 = ActiveSheet.Range("C6").Value
    crit2 = ActiveSheet.Range("D6").Value
    precision = ActiveSheet.Range("E6").Value
    date_op = ActiveSheet.Range("F6").Value
    montant = ActiveSheet.Range("G6").Value
    
    ' copie des valeurs vers la feuille correspondante
    
    
    Set moistest = Sheets("2014_exemple").Rows(1).Cells.Find(What:=CDate(DateSerial(Year(date_op), Month(date_op), 1)))
    If Not moistest Is Nothing Then
        col = moistest.Column
        MsgBox col
    Else
        MsgBox "pas trouvé"
    End If
 

End If

End Sub