VBA Boucle

Bonjour,

Je suis en train de réaliser un programme VBA bien que je sois novice en la matière...
Je bloque à un endroit, en effet, je demande de trouver dans la feuille 5 la première colonne dispo' (contenant aucune valeur) et d'y reporter certaines valeurs.

Cela fonctionne mais je remarque qu'a chaque inscription de valeur, les précédentes sont écrasées ce qui fait qu'au final seules les valeurs de la dernière boucle du "i" sont présentes (dans la première colonne alors qu'elle devait deja etre remplie ....)

Mais erreure est peut etre (et je l'espere) très "bête", je vous laisse une partie du code ...
Merci d'avance


'Permet de vérifier si 3 valeurs ne sont pas déjà présentes sur une zone de 100m
'Si c'est le cas, classement en zone critique dans Feuil5
With Feuil3
LastRow = .Cells(.Rows.Count, 2).End(xlUp).Row
For i = 5 To LastRow - 2
If Cells(i + 2, 2) - Cells(i, 2) <= 0.1 Then

With Feuil5
LastColumn = .Cells(1, .Columns.Count).End(xlToLeft).Column
Feuil5.Cells(1, LastColumn) = Feuil3.Cells(i, 2)
Feuil5.Cells(2, LastColumn) = Feuil3.Cells(i + 1, 2)
Feuil5.Cells(3, LastColumn) = Feuil3.Cells(i + 2, 2)
End With

End If
Next i
End With