Ecrire dans la première Colonne Vide

Bonjour à tous,

Après de nombreuses recherche sur le sujet, je ne trouve pas de solution.

Je sais le faire pour les lignes... mais pour les colonnes ...

J'ai réaliser ceci en pensant que ça marcherait tout seul mais problème ...

Private Sub RegBut_click()

Dim Ln As Integer

Dim Cl As integer

If Ngbox.Value = True Then

    With Sheets("DonnéesNg")

            Ln = .Range("A" & Rows.Count).End(xlUp).Row + 1
'Explications :
'Range("A" & Rows.Count) -> donne la toute dernière cellule, au bas de la colonne A
'Range("A" & Rows.Count).End(xlUp) -> donne la cellule non vide en remontant depuis cette cellule
'Range("A" & Rows.Count).End(xlUp).row -> donne le n° de ligne de cette cellule non vide
'Range("A" & Rows.Count).End(xlUp).row +1 -> N° de la ligne où on va écrire

            Cl = .Range(Rows.Count & "1").End(xlToRight).Row + 1

        .Range("A" & Ln).Value = ModBox.Value
        .Range(Cl & 1).Value = ModBox.Value
        .Range(Cl & 2).Value = RefBox1.Value
        .Range(Cl & 3).Value = RefBox2.Value
        .Range(Cl & 4).Value = RefBox3.Value
        .Range(Cl & 5).Value = RefBox4.Value
        .Range(Cl & 6).Value = RefBox5.Value

        End With

ElseIf AvoBox.Value = True Then

    With Sheets("DonnéesAvo")

    End With

End If

End Sub

.cells(1,.columns.count).end(xltoleft).column

J'ai reussi à le faire comme ceci :

  With Sheets("DonnéesNg")
            Ln = .Range("A" & Rows.Count).End(xlUp).Row + 1

         Sheets("DonnéesNg").Select

        .Range("A" & Ln).Value = ModBox.Value
          Range("c1").End(xlToRight).Select
          ActiveCell.Offset(0, 1).Select
          ActiveCell.Value = ModBox.Value
          ActiveCell.Offset(1, 0).Select
          ActiveCell.Value = RefBox1.Value
          ActiveCell.Offset(1, 0).Select
          ActiveCell.Value = RefBox2.Value
          ActiveCell.Offset(1, 0).Select
          ActiveCell.Value = RefBox3.Value
          ActiveCell.Offset(1, 0).Select
          ActiveCell.Value = RefBox4.Value
          ActiveCell.Offset(1, 0).Select
          ActiveCell.Value = RefBox5.Value

Merci de ta réponse EngueEngue, je vais essayé ta solution. 9a fera plus propre je pense