Label1.Caption ???????

Private Sub UserForm_Initialize()
Dim col As Byte 'déclare la variable col
col = Sheets("Feuil2").Range("IV1").End(xlToLeft).Column 'définit la variable col
Label2.Caption = col 'affiche la variable col dans l'étiquette Label2
End Sub

Private Sub UserForm_Initialize()
  Dim dercolF2 As Byte
    
  Sheets("Feuil2").Activate
  dercolF2 = Selection.SpecialCells(xlCellTypeLastCell).Column
  Sheets("Feuil1").Activate
  Label1.Caption = "Nb de colonnes de la feuille 2 : " & dercolF2
End Sub

Private Sub UserForm_Initialize()
Dim nb As Byte
With Sheets("Feuil2")
    nb = Application.WorksheetFunction.Count(Rows(1))
End With
Me.Label2.Caption = nb
End Sub