voici un exemple de ce que j'essaye
For boucle = 1 To nb_lignes
If Application.WorksheetFunction.Match(Sheets("import" ).Cells(boucle, 1), Sheets("bdd" ).Range("A:A" ), 0) = -1 Then
lastrow = Sheets("bdd" ).UsedRange.SpecialCells(xlCellTypeLastCell).Row
Sheets("bdd" ).Cells(lastrow + 1, 1) = Sheets("import" ).Cells(boucle, 1)
Sheets("bdd" ).Cells(lastrow + 1, 2) = Sheets("import" ).Cells(boucle, 2)
End If
boucle = boucle + 1
Next
mois j'ai une erreur sur le match
un petit peu d'aide serait la bienvenue
---------------
Mon Feedback | galerie Photo