Sub Macro1()
Dim O As Object 'déclare la variable O (Onglet)
Dim DL As Integer 'déclare la variable DL (Dernière Ligne)
Dim PL As Range 'déclare la variable PL (PLage)
Dim PLC As Range 'déclare la variable PLC (Plage des Constantes)
Set O = Sheets("Feuil1") 'définit l'onglet O
DL = O.Cells(Application.Rows.Count, 1).End(xlUp).Row 'définit la dernière ligne éditiée DL de la colonne 1 (=A) de l'onglet O
Set PL = O.Range("A3:A" & DL) 'définit la plage PL
Set PLC = PL.SpecialCells(xlCellTypeConstants) 'définit la plage PLC des cellules contenant une constante dans la plage PL
PLC.Copy O.Range("B3") 'copie la plage PLC et la colle dans B3
End Sub