Bonsoir le forum

Bonsoir mimi2a

      Ce n'est pas quelques instants pour moi mais plusieurs heures. J'ai bidouillé en VBA il y a longtemps en qualité de novice (Actuellement je suis à moins 10) mais j'ai réussi (enfin j'ai fait ce que j'ai pu) à réaliser ceci qui j'espère te conviendra. Après, il faudra attendre les autres forumeurs forumeuses pour paufiner.

1// Atteindre 1ère cellule vide dans colonne  (Ici colonne A)
Range("A1").End(xlDown).Offset(1, 0).Select

2// Atteindre dernière cellule remplie dans colonne (Ici colonne A)
 Range(« A » & [A65536].End (xlUp).Row).Select

3// Atteindre 1ère cellule vide dans ligne (ici ligne1)
Range("IV1").End(xlToLeft).Offset(0, 1).Select

4// Atteindre dernière cellule remplie dans ligne (Ici ligne 1)
Range("IV1").End(xlToLeft).Select

5// Ecrire dans une cellule
Range(“A1”).Value =  " Coucou "

6// Afficher le contenu d’une cellule 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 Range("A1").Value = Target.Value
 End Sub

7// Afficher la position d'une cellule contenant une valeur (Ici "coucou")
Sub positionMaCell()
 Dim x As Range, a As String, l As Integer, c As Integer
 Set x = Cells.Find("coucou", , xlValues, xlWhole, , , False)
 If Not x Is Nothing Then
     a = x.Address(0, 0)
 End If
 MsgBox (a)
End Sub

Bonne soirée