Copier dans la première cellule vide au milieu d'autres

Bonjour à tous,

je vais vous avouer que j'ai passer la journée sur les forums mais je pense que ce sera plus facile de vous posez directement ma question

Voici le sujet:

j'ai une cellule dans la Feuille 1 que je veux copier dans la feuille 2

- si le texte de la cellule commence par A je veux le mettre dans la cellule A de la feuille 2: j'ai trouvé une formule du genre If val Like("A*") en définissant A As String : CA FONCTIONNE

- Mon problème est que j'aimerai copier cette cellule dans la première cellule vide de la colonne A de la page 2. Néanmoins cette cellule vide n'est pas forcément après la dernière cellule pleine puisqu'elle peut être situé en plein milieu d'un tas de cellule pleine.

Et la C'est MISSION IMPOSSIBLE pour moi ^^

Je me réfère à vos capacités pour me sauver ma soirée ahah

Si vous pouvez me proposer un petit code comprenant les 2 conditions que j'essaye de suite ce serait très gentil de votre part

Merci d'avance

Bonsoir,

Un essai sur le fichier joint

Amicalement

Bonsoir

Parce que la méthode me plait (bon il y a une contrainte- On pourrait faire autrement)

Sub test()
Dim Nblg As Long
Dim Msg As String, Colonne As String

  Msg = "FBanzai64"
  Colonne = Left(Msg, 1)

  With Sheets("Feuil2")
    Nblg = .Range(Colonne & Rows.Count).End(xlUp).Row

    ' Obligation d'initialiser la 1ère cellule vide après la dernière non vide
    With .Range(Colonne & Nblg + 1)
      .Value = "xyz"
      .ClearContents
    End With

    .Range(Colonne & 1 & ":" & Colonne & Nblg + 1).SpecialCells(xlCellTypeBlanks).Range("A1") = Mid(Msg, 2)
  End With
End Sub

Bonjour,

Merci tous les deux pour votre aide ceci fonctionne parfaitement.

Encore un grand merci à vous