Tirage de colonne sans souris

Bonjour,

Qu'entends tu par "tirer une colonne"?
Étendre une formule sur la totalité d'une colonne?
Étendre une formule sur une partie d'une colonne? (si oui, combien de lignes etc...)
Autre chose?

Voici un exemple de ce qu'il est possible de faire en macro :

Pour mettre en place cette procédure :
1- dans le classeur concerné, sous n'importe qu'elle feuille, taper ALT+F11,
2- Dans la fenêtre qui s'ouvre (Visual Basic Editor), Insertion/Module
3- dans la fenêtre au centre de l'écran, copier-coller ce code :

Sub Simon260()
Dim rngDest As Range, Adresse As String, Col As String, Cpt As Byte

Do
Adresse = InputBox("Jusqu'à qu'elle ligne étendre la formule?", "N° LIGNE")
Cpt = Cpt + 1
If Cpt > 3 Then Exit Sub
Loop While Teste(Adresse) = False
Col = Split(ActiveCell.Address, "$")(1)
Adresse = Col & Adresse
Set rngDest = Range(Adresse)
Selection.AutoFill Destination:=Range(ActiveCell, rngDest)
End Sub

Function Teste(Str As String) As Boolean
Teste = True
If Not IsNumeric(Str) Then Teste = False: Exit Function
If Str = "" Then Teste = False: Exit Function
If Str = 0 Then Teste = False: Exit Function
If CLng(Str) < 0 Then Teste = False: Exit Function
If InStr(Str, Application.International(xlDecimalSeparator)) <> 0 Then Teste = False: Exit Function
If CLng(Str) > Rows.Count Then Teste = False: Exit Function
End Function

4- refermer la fenêtre Visual Basic Editor

Pour utiliser cette procédure :
1- Sélectionner la cellule concernée par le "tirage"
2- Taper ALT+F8
3- Choisir Simon260 et cliquer sur Exécuter
4- la macro demande jusqu'à qu'elle ligne étendre la formule, saisissez un nombre
5- OK
6- Voilà

Cordialement,
Franck

En selectionnant une cellule, j'ai possibilite de cliquer avec la souris en bas a droite de cette cellule afin de reproduire la fonction (ou bien la serie 1,2,3 ect..) vers le bas .

je souhaiterais faire cela sans utiliser la souris