Salut

Réponse tardive mais c'est toujours sa:
Chaque n° de ligne sont d'abord inscrit dans des cellules, j'ai pas pu faire autrement
à la limite tu pourra les mettre en cellule A3000 comme ça tu ne les verra pas.

Tu aura juste a double cliquer sur chaque ligne que tu veux

A mettre dans:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

'désactivation de l'écran
Application.ScreenUpdating = False

'appel de la macro
'enregistre n° ligne
'dans variable target

Call essai(Target)


End Sub


A mettre dans un module:

Sub essai(Target As Range)

'déclare variable
'target et r sont des valeur de cellules

Dim r As Range

'enregistre la valeur de la cellule double cliqué

Set r = Target

'boucle ajoute valeur
'de ligne si cellule vide

For i = 1 To 2 'ligne 1 a 3
'abscisse variable i, ordonné 1 = A
If Cells(i, 1).Value = "" Then Exit For

Next i

Sheets("feuil1").Cells(i, 1).Value = r.Row

'si les 3 coordonnées sont complétées
If Range("A3").Value <> "" Then

'alors cellule B1 = valeur
'des autres cellules

Range("B1").Value = Range("A1").Value & "/" & Range("A2").Value & "/" & Range("A3").Value


End If


'mise a jour de l'écran activée
Application.ScreenUpdating = True

End Sub
Intel Pentium 4 2Core 3,6GO 
C.M. ASUS P5GDC Deluxe
Chipset Intel Grantsdale I915 Socket LGA 775
2048MO DDR2 Dual Channel OCZ Gold
C.G. ATI 3850HD 256MO 400MHZ
3 DD Maxtor
XP Service Pack 3
Mozilla 3.0.3