Ajout d'une colonne

Bonjour,

Je viens vers vous car je n'arrive pas trouver la solution

J'ai ce code pris sur le forum, jusqu'a aujourd'hui il me convenait tres bien

Mais voilà c'est que d'autres valeurs se rajoute à chaque ligne et je coince contre la colonne IV.

Je ne souhaite pas passer sous excel 2007 pour avoir plus de colonnes.

Je vais juste tout inverser ligne/colonne

Donc pourriez vous m'indiquer la modification à apporter au code pour qu'a la validation de mon USF mes données s'insert sur une colonne ranger dans l'ordre alphabétique.

With WSCible
If .[A1].Value <> "" Then
Lig = .[A65536].End(xlUp).Row + 1
Else: Lig = 1
End If
.Cells(Lig, 1) = nomclient
.Cells(Lig, 2) = adr
.Cells(Lig, 3) = prenom
.Cells(Lig, 4) = cp
.Cells(Lig, 5) = ville
.Cells(Lig, 6) = tel1
.Cells(Lig, 50) = paiement



WSCible.Select

Range("A1").Select
Range("A1:IV65536").Sort Key1:=Range("A1"), Order1:=xlAscending, Header:= _
xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
TextBox1 = ""
TextBox2 = ""
TextBox3 = ""
TextBox4 = ""
TextBox5 = ""
TextBox7 = ""

Merci par avance.

Niepce