Private Sub CommandButton3_Click()
Dim Lg&, I%, Col%, Reponse$
With Feuil8
Reponse = StrConv(InputBox("Indiquez le titre de la colonne :", "Demande d'information", , 10400, 1050), vbUpperCase)
If Reponse = "" Then Exit Sub
Select Case .Range("H1").Text
Case Is <> ""
Col = 7 + .Range("H1").CurrentRegion.Columns.Count
.Range(.Cells(1, Col), .Cells(13, Col)).AutoFill Destination:=.Range(.Cells(1, Col), .Cells(13, Col + 1))
.Range(.Cells(1, Col + 1), .Cells(13, Col + 1)).ClearContents
.Cells(1, Col + 1).Value = Reponse
Case Else
With .Range("H1:H13")
.Clear
.BorderAround , xlThin
.Borders(xlInsideHorizontal).Weight = xlThin
End With
With .Range("H1")
.Interior.Color = 15849925
.Value = Reponse
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
End With
Col = 7
End Select
End With
With Me.Subfunctions
For I = I To .ListCount - 1
Lg = Feuil8.Columns(4).Find(.List(I)).Row
Cells(Lg, Col + 1) = "x"
Next I
End With
Lg = Feuil1.Range("D" & Rows.Count).End(xlUp).Row + 1
Feuil1.Cells(Lg, 4) = Reponse
End Sub