Sub CopierCollerCelullesNonVides()
Range("B:B").SpecialCells(xlCellTypeConstants, 23).Copy
Range("C1").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
End Sub
Y-a t-il moyen que tu commences ton message en prenant le soin de nous saluerY a t'il moyen d'arriver au même résultat juste avec des formules ?