Remplacer les cellules vides.

Sub Cherche()
'déclaration des variables :
Dim Trouve As Range
Dim PlageDeRecherche As Range
Dim Valeur_Cherchee As String
Dim RowTrouvee As Long


Valeur_Cherchee =worksheets("feuil1").cells(4,1).value
Set PlageDeRecherche = Sheets(2).Columns(1)


'méthode find, ici on cherche la valeur exacte (LookAt:=xlWhole)
Set Trouve = PlageDeRecherche.Cells.Find(what:=Valeur_Cherchee, LookAt:=xlWhole)

'traitement de l'erreur possible : Si on ne trouve rien :
If Trouve Is Nothing Then
    'ici, traitement pour le cas où la valeur n'est pas trouvée
     debug.print ("Aucun résultat trouvé...")
Else
    'ici, traitement pour le cas où la valeur est trouvée
    RowTrouvee = Trouve.row
End If

' On copie le nom dans la cellule de la feuille 1
worksheets("feuil1").cells(4,2).value = Sheets(2).cells(RowTrouvee,2).value

'vidage des variables
Set PlageDeRecherche = Nothing
Set Trouve = Nothing
End Sub

Sub Statisticien()
'A ADAPTER : 
    'Les noms des feuilles

Dim DL_Feuil2 As Long, DL_Feuil1 As Long, L As Long
With Sheets("Feuil2") 'A ADAPTER
    DL_Feuil2 = .Range("A" & Rows.Count).End(xlUp).Row
End With
With Sheets("Feuil1") 'A ADAPTER
    DL_Feuil1 = .Range("A" & Rows.Count).End(xlUp).Row
    For L = 2 To DL_Feuil1
        If .Range("B" & L) = "" Then .Range("B" & L) = Evaluate("VLOOKUP(A" & L & ",Feuil2!A2:B" & DL_Feuil2 & ",2,FALSE)")
    Next L
End With
End Sub 

Sub rempl_contregaranties()
'déclaration des variables :
Dim Trouve As Range
Dim PlageDeRecherche As Range
Dim Valeur_Cherchee As String
Dim RowTrouvee As Long

For i = 1 To 2000
Valeur_Cherchee = Worksheets("155").Cells(i, 5).Value

Set PlageDeRecherche = Sheets("cg_TCD").Columns(1)


'méthode find, ici on cherche la valeur exacte (LookAt:=xlPart)
Set Trouve = PlageDeRecherche.Cells.Find(what:=Valeur_Cherchee, LookIn:=xlValues)

'traitement de l'erreur possible : Si on ne trouve rien :
If Trouve Is Nothing Then
    'ici, traitement pour le cas où la valeur n'est pas trouvée
     Debug.Print ("Aucun résultat trouvé...")
Else
    'ici, traitement pour le cas où la valeur est trouvée
    RowTrouvee = Trouve.Row
End If

' On copie le nom dans la cellule de la feuille 1
Worksheets("155").Cells(i, 15).Value = Sheets("cg_TCD").Cells(RowTrouvee, 2).Value

'vidage des variables
'Set PlageDeRecherche = Nothing
'Set Trouve = Nothing

Next i
End Sub

Sub rempl_contreg()
'déclaration des variables :
Dim Trouve As Range
Dim PlageDeRecherche As Range
Dim Valeur_Cherchee As String
Dim RowTrouvee As Long

For i = 1 To 2000
Valeur_Cherchee = Worksheets("cg_TCD").Cells(i, 1).Value

Set PlageDeRecherche = Worksheets("155").Columns(5)


'méthode find, ici on cherche la valeur exacte (LookAt:=xlPart)
Set Trouve = PlageDeRecherche.Cells.Find(what:=Valeur_Cherchee, LookIn:=xlValues)

'traitement de l'erreur possible : Si on ne trouve rien :
If Trouve Is Nothing Then
    'ici, traitement pour le cas où la valeur n'est pas trouvée
     Debug.Print ("Aucun résultat trouvé...")
Else
    'ici, traitement pour le cas où la valeur est trouvée
    RowTrouvee = Trouve.Row
End If

' On copie le nom dans la cellule de la feuille 1
Worksheets("155").Cells(RowTrouvee, 15).Value = Worksheets("cg_TCD").Cells(i, 2).Value

'vidage des variables
Set PlageDeRecherche = Nothing
Set Trouve = Nothing

Next i
End Sub