XL 2016 Un coup de pousse pour finaliser macro VBA

Sub Test()
  Dim I As Integer, Cellule As Range
  With Sheets("LogsKDI")
    For I = 2 To .Range("A" & Rows.Count).End(xlUp).Row
      Set Cellule = Sheets("NewKDI").Cells.Find(What:=Range("T" & I).Value, LookAt:=xlPart)
      If Not Cellule Is Nothing Then .Range("E" & I) = Cellule.Value
    Next I
  End With
End Sub

Sub Test()
  Dim Lig As Integer, Cellule As Range
  Dim sID As String, eMail As String
  ' Avec l'objet conteneur - La Feuille : LogsKDI
  With Sheets("LogsKDI")
    For Lig = 2 To .Range("A" & Rows.Count).End(xlUp).Row
      ' Ne pas oublier le point devant range, pour qu'il soit en relation
      ' avec l'objet conteneur, qui est la feuille LogsKDI
      '
      ' Vérifier si l'ID est le même ou pas
      If sID <> "" And .Range("A" & Lig) = sID Then
        ' Si c'est le même on inscrit le mail mémorisé
        .Range("E" & Lig) = eMail
      Else
        ' Sinon on récupère l'ID
        sID = .Range("A" & Lig).Value
        ' On cherche l'ID dans l'autre feuille en colonne AB
        Set Cellule = Sheets("NewKDI").Range("AB:AB").Find(What:=sID, LookAt:=xlPart)
        ' Si une cellule est trouvée
        If Not Cellule Is Nothing Then
          ' On mémorise l'email de l'ID pour maintenant et après
          eMail = Sheets("NewKDI").Range("T" & Cellule.Row)
          ' On l'inscrit dans la colonne E
          .Range("E" & Lig) = eMail
        End If
      End If
    Next Lig
  End With
End Sub

Sub Test3()
  Dim Lig As Integer, Cellule As Range
  Dim sID As String, eMail As String, number As String, agreement As String
  ' Avec l'objet conteneur - La Feuille : LogsKDI
  With Sheets("LogsKDI")
    For Lig = 2 To .Range("A" & Rows.Count).End(xlUp).Row
      ' Ne pas oublier le point devant range, pour qu'il soit en relation
      ' avec l'objet conteneur, qui est la feuille LogsKDI
      '
      ' Vérifier si l'ID est le même ou pas
      If sID <> "" And .Range("A" & Lig) = sID Then
        ' Si c'est le même on inscrit le mail mémorisé
        .Range("E" & Lig) = eMail
      Else
        ' Sinon on récupère l'ID
        sID = .Range("A" & Lig).Value
        ' On cherche l'ID dans l'autre feuille en colonne AB
        Set Cellule = Sheets("NewKDI").Range("AB:AB").Find(What:=sID, LookAt:=xlPart)
        ' Si une cellule est trouvée
        If Not Cellule Is Nothing Then
          ' On mémorise l'email de l'ID pour maintenant et après
          eMail = Sheets("NewKDI").Range("T" & Cellule.Row)
          ' On l'inscrit dans la colonne E
          .Range("E" & Lig) = eMail
        End If
      End If
    Next Lig
  End With
  With Sheets("LogsKDI")
    For Lig = 2 To .Range("A" & Rows.Count).End(xlUp).Row
      ' Ne pas oublier le point devant range, pour qu'il soit en relation
      ' avec l'objet conteneur, qui est la feuille LogsKDI
      '
      ' Vérifier si l'ID est le même ou pas
      If sID <> "" And .Range("A" & Lig) = sID Then
        ' Si c'est le même on inscrit le nombre mémorisé
        .Range("F" & Lig) = number
      Else
        ' Sinon on récupère l'ID
        sID = .Range("A" & Lig).Value
        ' On cherche l'ID dans l'autre feuille en colonne AB
        Set Cellule = Sheets("NewKDI").Range("AB:AB").Find(What:=sID, LookAt:=xlPart)
        ' Si une cellule est trouvée
        If Not Cellule Is Nothing Then
          ' On mémorise le nombre de l'ID pour maintenant et après
          number = Sheets("NewKDI").Range("W" & Cellule.Row)
          ' On l'inscrit dans la colonne F
          .Range("F" & Lig) = number
        End If
      End If
    Next Lig
  End With
  With Sheets("LogsKDI")
    For Lig = 2 To .Range("A" & Rows.Count).End(xlUp).Row
      ' Ne pas oublier le point devant range, pour qu'il soit en relation
      ' avec l'objet conteneur, qui est la feuille LogsKDI
      '
      ' Vérifier si l'ID est le même ou pas
      If sID <> "" And .Range("A" & Lig) = sID Then
        ' Si c'est le même on inscrit le mail mémorisé
        .Range("G" & Lig) = agreement
      Else
        ' Sinon on récupère l'ID
        sID = .Range("A" & Lig).Value
        ' On cherche l'ID dans l'autre feuille en colonne AB
        Set Cellule = Sheets("NewKDI").Range("AB:AB").Find(What:=sID, LookAt:=xlPart)
        ' Si une cellule est trouvée
        If Not Cellule Is Nothing Then
          ' On mémorise l'agreement de l'ID pour maintenant et après
          agreement = Sheets("NewKDI").Range("L" & Cellule.Row)
          ' On l'inscrit dans la colonne E
          .Range("G" & Lig) = agreement
        End If
      End If
    Next Lig
  End With
End Sub