pour ceux que sa intéresse voici le code de la macro : Code: Tout sélectionner
Sub MiseAjour()
For Each F In Worksheets
With F
If F.Name <> "RECAP MOIS" Then
S = Right(F.Name, 9)
Jsem = Left(F.Name, Len(F.Name) - Len(S) - 1)
For i = 3 To 6
For j = 2 To 5
If .Cells(i, j).Value <> "" Then
Nom(j - 2) = .Cells(i, j).Value
End If
Next j
Next i
End If
End With
With Sheets("RECAP MOIS")
Col = .Range("1:1").Find(Jsem).Column
Ln = .Range("A:A").Find(S).Row
For k = 0 To 3
.Cells(Ln, Col).Offset(0, k).Value = Nom(k)
Next k
End With
Next F
End Sub