Incrémenter tableau un tableau avec feuille 2 avec boucle

Bonjour

Un petit exemple
http://www.cjoint.com/c/GCDsGMUQDFp

Cdlmnt

Bonjour ccm81

Merci pour ta réponse l'idée est clairement géniale, mais il me met une erreur ici :

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim li As Long, lifin As Long
If Target.Value = "" Then Target.Offset(0, 1).Select: Exit Sub
If Not Intersect(Target, Columns(coclicFS)) Is Nothing Then
lifin = Range(coclicFS & Rows.Count).End(xlUp).Row
li = Target.Row
If li < lidebFS Then Target.Offset(0, 1).Select: Exit Sub
Call Transfert(li)
Range("A" & li + 1).Select
End If
End Sub

Erreur "méthode select de la classe Range a échoué"

J'aurais bien été incapable de faire un code comme celui-là, whaouh ! si on pouvait résoudre ce petit souci ce serait top.

L'erreur se produit elle sur mon fichier ou sur le tien
Que vaut la variable li lorsque l'erreur se produit

Tu peux essayer ceci

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim li As Long, lifin As Long, nf As String
If Target.Value = "" Then Target.Offset(0, 1).Select: Exit Sub
If Not Intersect(Target, Columns(coclicFS)) Is Nothing Then
  nf = ActiveSheet.Name
  lifin = Range(coclicFS & Rows.Count).End(xlUp).Row
  li = Target.Row
  If li < lidebFS Then Target.Offset(0, 1).Select: Exit Sub
  Call Transfert(li)
  Sheets(nf).Activate
  Range("A" & li + 1).Select
End If
End Sub

Cdlmnt

Bonjour ccm81,

Sur celui que tu m'as transmis et de fait le mien car je n'ai pas trouvé ...
La variable : li=6

Le code que tu m'envoies là marche nickel !!

Merci beaucoup