For client_lot = 2 To fin
client_a_trouver = Workbooks(classeur).Sheets("planning").Cells(client_lot, colonne_nom_planning)
For recherche = 1 To dernier
Set x = Workbooks(classeur).Sheets("base").Columns(3).Find(client_a_trouver, , xlValues, 1, 1, 2, 0)
If Not x Is Nothing Then
Workbooks(classeur).Sheets("Planning").Cells(client_lot, Lot_colonne(recherche)) = Cells(x.Row, colonne_jour)
End If
Next recherche
Next client_lot