Dim FL2 As Worksheet
Set FL2 = Worksheets(1)
j = FL2.Range("B65536").End(xlUp).Row + 1
k = j + 1 'Pour le LOTS
Dim Plage As Range
''''''Ajout de la ligne ci-dessous
Dim NewMail As Boolean
''''''Ajout de la ligne ci-dessous
NewMail = True
''''''Ajout de la ligne ci-dessous
If Left(FL2.[J1], 1) = ";" Then FL2.[J1] = Right(FL2.[J1], Len(FL2.[J1]) - 1)
Set Plage = FL2.Range("B45:B" & j)
'Recherche l'entreprise dans la plage (colonne B de 45 à la fin des données)
'Si trouvée alors on redéfinit j et k
If Not IsError(Application.Match(NomEts, Plage, 0)) Then
'j étant la ligne trouvée (le + 44 ajoute à la ligne trouvée dans la plage)
j = 44 + Application.Match(NomEts, Plage, 0)
'k étant le N° de ligne du lot à partir de la ligne j
'Exemple si j est 45 et que tu es au 2ème lot cela va donner 47
k = Cells(j, 1).End(xlDown)(2).Row 'le (2) signifie ligne suivante ou ligne vide
''''''Ajout de la ligne ci-dessous
NewMail = False
End If
'ATTENTION modification de la ligne du Lot avec k et non j
FL2.Cells(k, 1).Value = Lots 'Lots
FL2.Cells(j, 2).Value = NomEts 'Nom entreprise
FL2.Cells(j + 2, 2).Value = RueEts 'Adresse
FL2.Cells(j + 3, 2).Value = CompRueEts & " " & CompRueEts1 'Complément 1 & 2
FL2.Cells(j + 4, 2).Value = Val(CP) & " " & Ville 'CP + Ville
FL2.Cells(j + 5, 2).Value = Email.Value 'Mail
FL2.Cells(j + 5, 4).Value = "M." & NomDirigeant & " " & PrenomDirigeant 'Nom Représentant
''''''Ajout de la ligne ci-dessous
If NewMail Then FL2.[J1] = FL2.[J1] & ";" & Email
WkCR.Save: WkCR.Close