Bonjour markho, et bienvenue sur le forum
Je rejoins ce que dit Jean Eric : Nous fournir un fichier de ce que tu souhaite obtenir nous permettrait de t'aider bien plus rapidement et en étant sur de ne pas nous tromper sur ta demande
Que des avantages pour toi donc
En attendant, voici un code qui devrais résoudre ta demande
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Application.EnableEvents = False
Dim NbrLigne As Integer
NbrLigne = Sheets("Feuil1").UsedRange.Rows.Count
If Target.Columns.Count = Application.Columns.Count Then
For i = 1 To NbrLigne
If Cells(i, 1).Value = "" Then Cells(i, 1).Value = "=""IND""&RANDBETWEEN(100,9999)"
Next i
Columns("A:A").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("A1").Select
End If
Application.EnableEvents = True
End Sub
A chaque insertion de ligne, un indice commençant par "IND" et se finissant par une série de chiffre entre "100 et 9999" apparaît dans les lignes vides.
Si cela ne conviens pas, fallait fournir un fichier xD