With Worksheets("RECAP") 'avec la feuille RECAP
'ici on remplie un tableau de Trois colonnes avec le tableau A4:Cn
[COLOR=red]'Comment je vois que les trois colonnes de destinations sont H I et J ? pour éventuellement déplacer en W X et Y ?[/COLOR]
Tabtemp = .Range("A4:C" & .Range("A65536").End(xlUp).Row).Value
On Error GoTo suite 'si erreur SPARE pour 10
For L = 1 To UBound(Tabtemp, 1) 'pour chaque ligne du tableau
With Worksheets(CStr(Tabtemp(L, 1))) 'on récupère le nom de la feuille
derlgn = .Range("A65536").End(xlUp).Row 'dans cette feuille on détermine _
la derniere ligne non vide de la colonne A
If .Cells(derlgn, 1).Offset(0, 3) = "" Then 'si la colonne D de cette ligne est vide
Tabtemp(L, 2) = .Cells(derlgn, 1) 'on remplie la colonne 2 du tableau avec le nom qui _
se trouve en colonne A de cette feuille
Tabtemp(L, 3) = Format(.Cells(derlgn, 2), "dd/mm/yyyy") 'on remplie la colonne 3 du tableau avec la date qui _
se trouve en colonne B de cette feuille
Else 'si non vide
Tabtemp(L, 2) = ""
Tabtemp(L, 3) = "Dispo"