En effet, je me suis mêlé les pinceaux.Re dejà dans ta procédure tu emploies la variable "oSheet"
a toutes les Sauces Lol
'CREATION DES FEUILLES
'd2 à changer par l'adresse de la première ligne contenant les dates
datas = [d2].Resize(Cells(Rows.Count, 4).End(xlUp).Row - 1).Value
Set dict = CreateObject("Scripting.Dictionary")
For lig = LBound(datas) To UBound(datas)
ShtName = datas(lig, 1)
Set Ws = ThisWorkbook.Sheets.Add(After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count))
With Ws
.Name = ShtName '***
End With
Next lig
End Sub
Bonjour,Re
nécessaire fait !
Bonne fin de Journée
Amicalement
Jean marie
Re,Re quand tu dis que le Code de Kindfadhel , Plante
çà veut dire quoi ?
For i = LBound(base, 1) To UBound(base, 1)
If Not Ddate.exists(Format(CLng((base(i, 7))), "mmm yyyy")) Then Ddate(Format(CLng((base(i, 7))), "mmm yyyy")) = ""
Next i