Agrandir une cellule et une cellule avec la date du jour

bonjour,

comment agrandir une cellule (nom long)
une cellule qui met la date jour

Merci de votre aide


Option Explicit
'-------------
Sub ccm()
Dim Mot As String, Nbre As Byte, cptr As Byte, Lig1 As Long, lig2 As Integer

Application.ScreenUpdating = False

With Sheets("feuil1")
On Error GoTo saisie
Mot = InputBox("Mot à rechercher ?")
Nbre = Application.CountIf(.Range("A1:A10"), Mot)
If Nbre = 0 Then GoTo vide
Lig1 = Cells.Rows.Count
lig2 = 1
For cptr = 1 To Nbre
Lig1 = .Columns("A").Find(Mot, .Cells(Lig1, "A"), xlValues).Row
Sheets("feuil2").Cells(lig2, "A") = .Cells(Lig1, "E")
Sheets("feuil2").Cells(lig2 + 2, "B") = .Cells(Lig1, "F")
Sheets("feuil2").Cells(lig2 + 1, "K") = .Cells(Lig1, "G")
lig2 = lig2 + 1
Next
End With
Exit Sub

'gestionnaire erreur
saisie:
MsgBox "aucune saisie effectuée", vbCritical

vide:
MsgBox Mot & " inconnu dans la liste!", vbCritical
End Sub