aide pour VBA excel

Sub Modif()

    Dim Plage As Range
    Dim Cel As Range
    
    'plage définie en colonne A de la feuille active
    With ActiveSheet
    
        Set Plage = .Range(.Cells(1, 1), .Cells(.Rows.Count, 1).End(xlUp))
        
    End With
    
    'boucle sur les cellules de la plage
    For Each Cel In Plage
        
        With Cel
            
            'utilise la fonction Trim() car présence d'espaces dans la cellule
            If UCase(Trim(.Value)) = "MONSIEUR" Then .Value = "Mr"
            If UCase(Trim(.Value)) = "MADAME" Then .Value = "Mme"
            If UCase(Trim(.Value)) = "SOCIETE" Then .Value = "sté"
            If UCase(Trim(.Value)) = "MONSIEUR OU MADAME" Then .Value = "Mr ou Mme"
            
        End With
               
    Next Cel
    
    Plage.Font.Name = "Calibri"
    Plage.Font.Size = 8
    Plage.RowHeight = 20
    
    Columns("B:C").EntireColumn.Delete

End Sub