XL 2016 VBA attribuer des constantes à plusieurs colonnes

' Fonction créée par BrunoM45 pour trouver une colonne
' Les paramètres sont les suivant :
' sFeuil  = nom de la feuille ou chercher en valeur texte
' NumLig = numéro de ligne ou chercher
' Quoi = Valeur à trouver
' Attention : Par défaut la recherche se fait sur une partie du contenu de la cellule
'
Function ColFind(sFeuil As String, NumLig As Integer, Quoi As Variant)
  On Error Resume Next
  With Sheets(sFeuil).Rows(NumLig)
    ColFind = 0
    ColFind = .Find(What:=Quoi, LookIn:=xlValues, LookAt:=xlPart, _
    SearchOrder:=xlByColumns, MatchCase:=False).Column
  End With
  On Error GoTo 0
End Function

Col1 = ColFind("NomFeuil",1,"Entête1Cherchée")
Col2 = ColFind("NomFeuil",1,"Entête2Cherchée")
wkA.Worksheets("Feuil1").Cells(h, Col1).Value = .Cells(j, Col2).Value