Sub recherche_plaque()
Dim f As Worksheet
Set f = Sheets("encodage")
f.Unprotect
Application.ScreenUpdating = False
ChercheEtCopie Sheets("BD"), f, xlPasteValues, f.Range("A11").Text
'Si tu veux changer le type de collage, tu as le choix
'La liste des différentes possibilités de collage apparaît lorsque tu modifies la ligne
'ChercheEtCopie Sheets("BD"), f, xlPasteValuesAndNumberFormats, f.Range("A11").Text
f.Activate
Range("AQ3").Select
f.Protect DrawingObjects:=False, Contents:=True, Scenarios:=True 'pour re prot?g?es la feuille
f.EnableSelection = xlUnlockedCells
End Sub
Private Sub ChercheEtCopie(Source As Worksheet, Desti As Worksheet, collage As XlPasteType, Mot As String, Optional Col As Long = 4)
Dim rng As Range, rng2 As Range
Set rng = Source.Columns(Col).Find(what:=Mot, after:=Source.Columns(Col).Cells(1), searchorder:=xlByColumns, searchdirection:=xlPrevious)
If rng Is Nothing Then
MsgBox "Erreur, mot cherché absent!", vbCritical
Else
Set rng2 = Desti.Range("A140")
rng.EntireRow.Copy: rng2.PasteSpecial Paste:=collage
Application.CutCopyMode = False
End If
End Sub