J'ai jusqu'à 6 cellules avec des données potentielles provenant de 6 endroits différents. J'essaie de faire en sorte que seules les trois premières cellules contenant des données soient transférées vers une autre feuille.
Private Sub Transfer_Data()
Sheets("sheet1").Range("A1:A6").SpecialCells(xlCellTypeConstants, 23).copy
Sheets("sheet2").Range("A1:A3").PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
End Sub
C'est ce que j'ai, je sais qu'il me manque beaucoup de choses.