Sub Bouton1_Clic()
Dim i&, j&, k&, tmp#, Dat As Range
'Sélection des données :
With Feuil1.[E1]
Set Dat = .Parent.Range(.Cells, .Parent.Cells(.Parent.Rows.Count, .Column).End(xlUp))
End With
With Feuil2.[E1]
'Pour chaque valeur sélectionnée...
For i = 2 To Dat.Count
'...report de la ligne correspondante dans la feuille Feuil2...
k = k + 1
.Offset(k).Resize(1, 3).Value = Dat(i).Resize(1, 3).Value
'...contrôle de l'ordre de grandeur de la valeur sélectionnée.
If Dat(i).Value > 2200 And 2300 > Dat(i).Value Then
'Si la valeur est entre 2200 et 2300, calcul de son complément à 2400.
tmp = 2400 - Dat(i).Value
'Recherche de ce complément dans les valeurs existantes...
For j = 2 To Dat.Count
If Dat(j).Value = tmp Then Exit For '...et sortie de la boucle si ce compléménr est trouvé.
Next
'Si le complément n'a pas été trouvé, alors...
If j > Dat.Count Then
'...création d'une ligne supplémentaire dans la feuille Feuil2, avec ce complément.
k = k + 1
.Offset(k).Resize(1, 3).Value = Dat(i).Resize(1, 3).Value
.Offset(k).Value = tmp
End If
End If
Next
End With
End Sub