Sub Formula_Example()
    Range("b4").Formula = "=b2+b3"

End Sub

Sub Effacer_B4()
    If MsgBox("Etes-vous certain de vouloir supprimer le contenu de B4 ?", vbYesNo, "Demande de confirmation") = vbYes Then
        Range("B4").ClearContents
        MsgBox "Le contenu de B4 a été effacé !"
    End If
End Sub

Sub GetCell()
    Dim userName As String
    
    'userName = InputBox("Enter username")
    userName = Range("a15").Value
    MsgBox "user : " & userName
End Sub

Sub GetUser()
    Dim userName As String
    Dim objConnection, objCommand, objRecordSet
    Dim strFName, strLName
    
    userName = Range("a15").Value
    Set RootDSE = GetObject("LDAP://RootDSE")
    searchRoot = RootDSE.Get("defaultNamingContext")
    Set objConnection = CreateObject("ADODB.Connection")
    Set objCommand = CreateObject("ADODB.Command")
    Set objRecordSet = CreateObject("ADODB.Recordset")
    objConnection.Provider = "ADsDSOObject"
    objConnection.Open "Active Directory Provider"
    Set objCommand.ActiveConnection = objConnection
    strQueryText = "<LDAP://" & searchRoot & ">;(&(objectCategory=Person)(samAccountName=" & userName & "));" & "givenName,sn,displayName"
    objCommand.CommandText = strQueryText
    objCommand.Properties("Page Size") = 15
    objCommand.Properties("Timeout") = 25
    objCommand.Properties("Cache Results") = False
    Set objRecordSet = objCommand.Execute
    objRecordSet.MoveFirst
    
    strFName = objRecordSet.Fields("givenName").Value
    strLName = objRecordSet.Fields("sn").Value
    MsgBox strFName & " " & strLName
End Sub

Sub SendMail()
    With CreateObject("CDO.Message")
        .From = "tony.montana@dbs.fr"
        .To = "bt.conio@dbs.fr"
        .Subject = "test"
        .TextBody = "test"
        .Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
        .Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.dbs.fr"
        .Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
        .Configuration.Fields.Update
        On Error Resume Next
        .Send
    End With
End Sub