Aller a la cellule suivante lorsque celle devant est pleine

[Doha_Abbad]

Bonjour,
Je voudrais savoir comment faire pour lorsque une ligne est pleine de renseigner les informations sur une nouvelle.
Par exemple j’ai une information sur D11 donc la nouvelle information devrait se mettre sur D12.
J’ai que de petit notion en VBA j’ai essayé de lire et trouver d’information mais rien ne marche.

J’ai essayé comme ça mais à chaque fois me met la ligne 10457.

Je suis vraiment perdue.

Cordialement

[Mimimathy]

Bonjour,
Teste ceci pour trouver ta ligne

ligne = Range("D10").CurrentRegion.End(xlDown).Row + 1

[Doha_Abbad]

Slt Marco bcp pour ta réponse.
Cela a marché une fois cette a dire que effectivement est parti à la ligne suivante, mais une fois sur D11 au lieu de aller en D12 il reste sur d11 et il m’écrase les informations précédentes.

[Mimimathy]

Re,
Place ton fichier,
cela ira plus vite avec quelques explications

[Doha_Abbad]

C’est un fichier de suivi, ce que j’ai fais que depuis l’onglet Devis je peux renseigner automatiquement l’onglet SuiviTE (jusqu’à la j’ai réussi)
Or, chaque jour je fais de devis et donc les informations changent.
Moi je veux que dans l’onglet SuiviTE une fois la ligne remplie que il va automatiquement à la ligne suivante pour insérer des nouvelles informations.

[Doha_Abbad]

Avec ce code je peux répondre les informations sur le devis et le copier automatiquement sur ma SuiviTe.

Mais j’arrive pas à aller à la cellule/ligne suivante si celle-ci est pleine.

[Mimimathy]

Re,
On ne travaille pas sur des images, mais sur un fichier EXCEL !

[Doha_Abbad]

Suivi TE DOHA ABBAD.xlsm (90,0 Ko)

[Mimimathy]

Re
Teste ceci

Private Sub CommandButton1_Click()
  Dim ligne&
  ligne = Sheets("SuiviTE").Range("D" & Rows.Count).End(xlUp).Row + 1
  
  Sheets("SuiviTE").Range("D" & ligne) = Sheets("Devis").Range("E2")
  Sheets("SuiviTE").Range("G" & ligne) = Sheets("Devis").Range("D13")
  Sheets("SuiviTE").Range("H" & ligne) = Sheets("Devis").Range("C9")
  Sheets("SuiviTE").Range("I" & ligne) = Sheets("Devis").Range("B22")
  Sheets("SuiviTE").Range("J" & ligne) = Sheets("Devis").Range("E35")

End Sub

[Doha_Abbad]

Merciii bcp tu m’as sauvé