operation sur les colonnes?

Sub Macro1()
 
Dim adc As Byte 'déclare la variable adc (Avant Dernière Colonne)
Dim dc As Byte 'déclare la variable dc (Dernière Colonne)
Dim adl As Integer 'déclare la variable adl (Avant Dernière Ligne)
Dim dl As Integer 'déclare la variable dl (Dernière Ligne)
Dim p As Range 'décalre la variable p (Plage)
Dim cel As Range 'déclare la variable cel (CELlule)
Dim s As Double 'décalre la variable s (Somme)
 
dc = Range("IV1").End(xlToLeft).Column ' définit la variable dc
adc = dc - 1 ' définit la variable adc
adl = Cells(65536, adc).End(xlUp).Row ' définit la variable adl
dl = Cells(65536, dc).End(xlUp).Row ' définit la variable dl
'définit la variabe p
Set p = Application.Union(Range(Cells(1, adc), Cells(adl, adc)), Range(Cells(1, dc), Cells(dl, dc)))
 
For Each cel In p 'boucle sur toutes lde cellule de la plage p
    On Error Resume Next 'gestion erreur si la cellule ne contient pas de valeur numérique
    s = s + cel.Value 'définit la varable s
    On Error GoTo 0 'fin de gestion erreur
Next cel 'prochaine cellule de la plage p
 
MsgBox s 'message affichant la somme
 
End Sub