If Left(Feuille.Name, 7) = "Semaine" Then 'si le nom commence par "Semaine" ...
[COLOR="Red"][SIZE="3"][B]For Each Cel In Feuille.Range("B5:B200").SpecialCells(xlCellTypeConstants, 23) 'Boucle sur les cellules non vides de la colonne B
Set CelDest = ThisWorkbook.Sheets(Feuille.Name).Range("A65536").End(xlUp).Offset(1, 0) 'Définition de la cellule de destination. Derniere cellule vide
With CelDest
.Value = Cel.Offset(, -1).MergeArea(1).Value 'récupération de la date
.Font.Bold = True 'formatage en Gras
.Font.Size = 14 'taille 14
End With
Cel.Resize(, NbCol).Copy 'Copie de la ligne
CelDest.Offset(0, 1).PasteSpecial Paste:=xlPasteValues 'Collage valeurs
CelDest.Offset(0, 1).PasteSpecial Paste:=xlPasteFormats 'Collage formats
Next Cel[/B][/SIZE][/COLOR]
End If